diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2007-02-19 06:48:07 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2007-02-19 06:48:07 +0000 |
| commit | bb6a1e6dcf3c649d98c10114d21bf430367c4157 (patch) | |
| tree | 72060966d6f0403e262ef0a30ad23a8ecb69ae26 /gcc/fortran/match.c | |
| parent | 300471993fe5472c86b85b88557520c30f1309d7 (diff) | |
| download | gcc-bb6a1e6dcf3c649d98c10114d21bf430367c4157.tar.gz | |
re PR fortran/30681 ("obsolescent" vs. "obsolete")
2007-02-18 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR fortran/30681
* options.c (gfc_init_options): Relax warning level for obsolescent.
* match.c (match_arithmetic_if): Change to obsolescent from deleted.
(gfc_match_if): Same.
From-SVN: r122124
Diffstat (limited to 'gcc/fortran/match.c')
| -rw-r--r-- | gcc/fortran/match.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/fortran/match.c b/gcc/fortran/match.c index bf78911b3f0..012f549d224 100644 --- a/gcc/fortran/match.c +++ b/gcc/fortran/match.c @@ -952,7 +952,7 @@ match_arithmetic_if (void) return MATCH_ERROR; } - if (gfc_notify_std (GFC_STD_F95_DEL, "Obsolete: arithmetic IF statement " + if (gfc_notify_std (GFC_STD_F95_OBS, "Obsolescent: arithmetic IF statement " "at %C") == FAILURE) return MATCH_ERROR; @@ -1025,7 +1025,7 @@ gfc_match_if (gfc_statement *if_type) return MATCH_ERROR; } - if (gfc_notify_std (GFC_STD_F95_DEL, "Obsolete: arithmetic IF " + if (gfc_notify_std (GFC_STD_F95_OBS, "Obsolescent: arithmetic IF " "statement at %C") == FAILURE) return MATCH_ERROR; |