diff options
| author | Janne Blomqvist <jb@gcc.gnu.org> | 2012-06-21 21:47:01 +0300 |
|---|---|---|
| committer | Janne Blomqvist <jb@gcc.gnu.org> | 2012-06-21 21:47:01 +0300 |
| commit | 67eb28c8b8081b781c04e368766dab06fa13ed15 (patch) | |
| tree | 59aa2323ea68faca7af3c3ce061a65ad40e8ebb7 /gcc/fortran/iresolve.c | |
| parent | 5175cbafd2640d15304558c02e66642aa94e34b5 (diff) | |
| download | gcc-67eb28c8b8081b781c04e368766dab06fa13ed15.zip gcc-67eb28c8b8081b781c04e368766dab06fa13ed15.tar.gz gcc-67eb28c8b8081b781c04e368766dab06fa13ed15.tar.bz2 | |
PR 39654 FTELL intrinsic function return type.
frontend ChangeLog:
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.
library ChangeLog:
2012-06-21 Janne Blomqvist <jb@gcc.gnu.org>
PR fortran/39654
* io/intrinsics.c (ftell2): New function.
* gfortran.map (_gfortran_ftell2): Export function.
From-SVN: r188858
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")); } |