diff options
| author | Francois-Xavier Coudert <fxcoudert@gcc.gnu.org> | 2014-06-06 19:57:51 +0000 |
|---|---|---|
| committer | François-Xavier Coudert <fxcoudert@gcc.gnu.org> | 2014-06-06 19:57:51 +0000 |
| commit | 72b572cbb3a3d90cfbbaa0b6ee1bc13a0d42f9a4 (patch) | |
| tree | 8b454b97eddbf10a2a219e8ffc857d06daa03131 /gcc/fortran/io.c | |
| parent | 7b11cab795af9c578a20c0909f3f6edbb31c0879 (diff) | |
| download | gcc-72b572cbb3a3d90cfbbaa0b6ee1bc13a0d42f9a4.zip gcc-72b572cbb3a3d90cfbbaa0b6ee1bc13a0d42f9a4.tar.gz gcc-72b572cbb3a3d90cfbbaa0b6ee1bc13a0d42f9a4.tar.bz2 | |
io.c (resolve_tag): Warn on non-default kind for NUMBER...
* 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.
From-SVN: r211323
Diffstat (limited to 'gcc/fortran/io.c')
| -rw-r--r-- | gcc/fortran/io.c | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/gcc/fortran/io.c b/gcc/fortran/io.c index 84d0db8..731c6dc 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; } |