diff options
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/fortran/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/fortran/iresolve.c | 4 |
2 files changed, 8 insertions, 2 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index ef2dc36..f326572 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,9 @@ +2012-06-21 Janne Blomqvist <jb@gcc.gnu.org> + + PR fortran/39654 + * iresolve.c (gfc_resolve_ftell): Fix result kind and use new + library function. + 2012-06-18 Tobias Burnus <burnus@net-b.de> * intrinsic.h (gfc_resolve_rank): New prototype. 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")); } |