diff options
| author | jb <jb@138bc75d-0d04-0410-961f-82ee72b054a4> | 2012-06-21 18:47:01 +0000 |
|---|---|---|
| committer | jb <jb@138bc75d-0d04-0410-961f-82ee72b054a4> | 2012-06-21 18:47:01 +0000 |
| commit | dd64519676afeb0082b00bc8c213ecedacb285d6 (patch) | |
| tree | 59aa2323ea68faca7af3c3ce061a65ad40e8ebb7 /gcc/fortran | |
| parent | 7a99ccab400806a8bdde875f7154086401d7cfc6 (diff) | |
| download | gcc-dd64519676afeb0082b00bc8c213ecedacb285d6.tar.gz | |
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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@188858 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/fortran')
| -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 ef2dc36166b..f3265721de8 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 2a494550bbc..6d1e8b2a176 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")); } |