Skip to content

R
riscv-gcc-1
Commit a0689cdf by Tobias Schlüter
Options

* simplify.c (gfc_simplify_size): Fix typo. 

From-SVN: r129053
parent 835b616d
Showing with 5 additions and 1 deletions
gcc/fortran/ChangeLog
2007-10-06 Tobias Schlter <tobi@gcc.gnu.org> 2007-10-06 Tobias Schlter <tobi@gcc.gnu.org>
* simplify.c (gfc_simplify_size): Fix typo.
2007-10-06 Tobias Schlter <tobi@gcc.gnu.org>
PR fortran/25076 PR fortran/25076
* resolve.c (gfc_find_forall_index): Move towards top, * resolve.c (gfc_find_forall_index): Move towards top,
renaming to ... renaming to ...
......
gcc/fortran/simplify.c
...@@ -3651,7 +3651,7 @@ gfc_simplify_size (gfc_expr *array, gfc_expr *dim, gfc_expr *kind) ...@@ -3651,7 +3651,7 @@ gfc_simplify_size (gfc_expr *array, gfc_expr *dim, gfc_expr *kind)
mpz_t size; mpz_t size;
gfc_expr *result; gfc_expr *result;
int d; 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) if (k == -1)
return &gfc_bad_expr; return &gfc_bad_expr;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment