diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2007-06-22 01:50:09 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2007-06-22 01:50:09 +0000 |
| commit | 79e7840d22610f67d5247c2ac73d908fbc77838a (patch) | |
| tree | fe9a3d1004e1a4761c54706e236aad74348de33b /gcc/fortran/io.c | |
| parent | 49d2bde811fc53f864e611151e7fda1e0a506ddf (diff) | |
| download | gcc-79e7840d22610f67d5247c2ac73d908fbc77838a.zip gcc-79e7840d22610f67d5247c2ac73d908fbc77838a.tar.gz gcc-79e7840d22610f67d5247c2ac73d908fbc77838a.tar.bz2 | |
re PR fortran/31162 (missing warning for real do-loops with implicit typed variables)
2007-06-21 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR fortran/31162
* resolve.c (gfc_resolve_iterator_expr): Add check for REAL using
gfc_notify_standard. (gfc_resolve_iterator): Remove check.
(resolve_branch): Change "Obsolete" to "Deleted feature".
* io.c (resolve_tag): Ditto.
* match.c (gfc_match_pause, gfc_match_assign, gfc_match_goto): Ditto.
From-SVN: r125938
Diffstat (limited to 'gcc/fortran/io.c')
| -rw-r--r-- | gcc/fortran/io.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/fortran/io.c b/gcc/fortran/io.c index 4d12b24..aa299a3 100644 --- a/gcc/fortran/io.c +++ b/gcc/fortran/io.c @@ -1072,7 +1072,7 @@ resolve_tag (const io_tag *tag, gfc_expr *e) } else if (e->ts.type == BT_INTEGER && e->expr_type == EXPR_VARIABLE) { - if (gfc_notify_std (GFC_STD_F95_DEL, "Obsolete: ASSIGNED " + if (gfc_notify_std (GFC_STD_F95_DEL, "Deleted feature: ASSIGNED " "variable in FORMAT tag at %L", &e->where) == FAILURE) return FAILURE; |