diff options
| author | fxcoudert <fxcoudert@138bc75d-0d04-0410-961f-82ee72b054a4> | 2014-06-06 19:57:51 +0000 |
|---|---|---|
| committer | fxcoudert <fxcoudert@138bc75d-0d04-0410-961f-82ee72b054a4> | 2014-06-06 19:57:51 +0000 |
| commit | be5ce1bd717c009fd7706d9554b88f1214c521de (patch) | |
| tree | 8b454b97eddbf10a2a219e8ffc857d06daa03131 /gcc/fortran | |
| parent | cf47b929627cd005af81a9ab1237330f1c24d0ef (diff) | |
| download | gcc-be5ce1bd717c009fd7706d9554b88f1214c521de.tar.gz | |
* io.c (resolve_tag): Warn on non-default kind for NUMBER,
NEXTREC, RECL, NAMED, OPENED and PENDING I/O specifiers.
* gfortran.dg/io_constraints_11.f90: New file.
* gfortran.dg/io_constraints_12.f90: New file.
* gfortran.dg/io_constraints_13.f90: New file.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@211323 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/fortran')
| -rw-r--r-- | gcc/fortran/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/fortran/io.c | 9 |
2 files changed, 11 insertions, 3 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index a62e8a74253..c292130e396 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,8 @@ +2014-06-06 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org> + + * io.c (resolve_tag): Warn on non-default kind for NUMBER, + NEXTREC, RECL, NAMED, OPENED and PENDING I/O specifiers. + 2014-06-06 Jakub Jelinek <jakub@redhat.com> * dump-parse-tree.c (show_omp_namelist): Dump reduction diff --git a/gcc/fortran/io.c b/gcc/fortran/io.c index 84d0db818de..731c6dcc567 100644 --- a/gcc/fortran/io.c +++ b/gcc/fortran/io.c @@ -1497,7 +1497,8 @@ resolve_tag (const io_tag *tag, gfc_expr *e) return false; } - if ((tag == &tag_iostat || tag == &tag_size || tag == &tag_iolength) + if ((tag == &tag_iostat || tag == &tag_size || tag == &tag_iolength + || tag == &tag_number || tag == &tag_nextrec || tag == &tag_s_recl) && e->ts.kind != gfc_default_integer_kind) { if (!gfc_notify_std (GFC_STD_F2003, "Fortran 95 requires default " @@ -1505,9 +1506,11 @@ resolve_tag (const io_tag *tag, gfc_expr *e) return false; } - if (tag == &tag_exist && e->ts.kind != gfc_default_logical_kind) + if (e->ts.kind != gfc_default_logical_kind && + (tag == &tag_exist || tag == &tag_named || tag == &tag_opened + || tag == &tag_pending)) { - if (!gfc_notify_std (GFC_STD_F2008, "Nondefault LOGICAL " + if (!gfc_notify_std (GFC_STD_F2008, "Non-default LOGICAL kind " "in %s tag at %L", tag->name, &e->where)) return false; } |