diff options
| author | Francois-Xavier Coudert <fxcoudert@gcc.gnu.org> | 2016-12-21 09:35:57 +0000 |
|---|---|---|
| committer | François-Xavier Coudert <fxcoudert@gcc.gnu.org> | 2016-12-21 09:35:57 +0000 |
| commit | f7db9ebf2b793ee115d572267b8c97362f43575c (patch) | |
| tree | f026989ec1d1cc3ed32ddcbad5415fd04d399551 /gcc/fortran/iresolve.c | |
| parent | 84ab8b8ad51a339d05a65759a4f603b01f0aa80a (diff) | |
| download | gcc-f7db9ebf2b793ee115d572267b8c97362f43575c.zip gcc-f7db9ebf2b793ee115d572267b8c97362f43575c.tar.gz gcc-f7db9ebf2b793ee115d572267b8c97362f43575c.tar.bz2 | |
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
Diffstat (limited to 'gcc/fortran/iresolve.c')
| -rw-r--r-- | gcc/fortran/iresolve.c | 2 |
1 files changed, 1 insertions, 1 deletions
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")); } |