diff options
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; } |