From f7db9ebf2b793ee115d572267b8c97362f43575c Mon Sep 17 00:00:00 2001 From: Francois-Xavier Coudert Date: Wed, 21 Dec 2016 09:35:57 +0000 Subject: iresolve.c (gfc_resolve_ftell): Call "ftell" instead of "ftell2". * iresolve.c (gfc_resolve_ftell): Call "ftell" instead of "ftell2". * gfortran.map: Remove _gfortran_ftell2. * io/intrinsics.c (ftell): Remove. (ftell2): Rename to ftell. From-SVN: r243841 --- gcc/fortran/ChangeLog | 4 ++++ gcc/fortran/iresolve.c | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) (limited to 'gcc/fortran') diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 5154b19..e4bc0e8 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,7 @@ +2016-12-21 Francois-Xavier Coudert + + * iresolve.c (gfc_resolve_ftell): Call "ftell" instead of "ftell2". + 2016-12-20 Janne Blomqvist * trans-types.c (gfc_init_types): Don't redefine boolean type node. diff --git a/gcc/fortran/iresolve.c b/gcc/fortran/iresolve.c index b289c9f..a30ed9f 100644 --- a/gcc/fortran/iresolve.c +++ b/gcc/fortran/iresolve.c @@ -2604,7 +2604,7 @@ gfc_resolve_ftell (gfc_expr *f, gfc_expr *u) gfc_convert_type (u, &ts, 2); } - f->value.function.name = gfc_get_string (PREFIX ("ftell2")); + f->value.function.name = gfc_get_string (PREFIX ("ftell")); } -- cgit v1.1