mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-04-09 03:00:27 +08:00
Code Issues Packages Projects Releases Wiki Activity

* simplify.c (gfc_simplify_size): Fix typo.

Browse Source 
From-SVN: r129053
This commit is contained in:
Tobias Schlüter 2007-10-06 14:17:32 +02:00
parent 835b616d29
commit a0689cdfd5
2 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gcc/fortran/ChangeLog
View File

@ -1,3 +1,7 @@
2007-10-06 Tobias Schlüter <tobi@gcc.gnu.org>
* simplify.c (gfc_simplify_size): Fix typo.
2007-10-06 Tobias Schlüter <tobi@gcc.gnu.org>
PR fortran/25076

2
gcc/fortran/simplify.c
View File

@ -3651,7 +3651,7 @@ gfc_simplify_size (gfc_expr *array, gfc_expr *dim, gfc_expr *kind)
mpz_t size;
gfc_expr *result;
int d;
int k = get_kind (BT_INTEGER, kind, "SCAN", gfc_default_integer_kind);
int k = get_kind (BT_INTEGER, kind, "SIZE", gfc_default_integer_kind);
if (k == -1)
return &gfc_bad_expr;