diff options
Diffstat (limited to 'gcc/fortran/iresolve.c')
| -rw-r--r-- | gcc/fortran/iresolve.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/fortran/iresolve.c b/gcc/fortran/iresolve.c index 2a49455..6d1e8b2 100644 --- a/gcc/fortran/iresolve.c +++ b/gcc/fortran/iresolve.c @@ -2480,7 +2480,7 @@ gfc_resolve_ftell (gfc_expr *f, gfc_expr *u) gfc_clear_ts (&ts); f->ts.type = BT_INTEGER; - f->ts.kind = gfc_index_integer_kind; + f->ts.kind = gfc_intio_kind; if (u->ts.kind != gfc_c_int_kind) { ts.type = BT_INTEGER; @@ -2490,7 +2490,7 @@ gfc_resolve_ftell (gfc_expr *f, gfc_expr *u) gfc_convert_type (u, &ts, 2); } - f->value.function.name = gfc_get_string (PREFIX ("ftell")); + f->value.function.name = gfc_get_string (PREFIX ("ftell2")); } |