From bb6a1e6dcf3c649d98c10114d21bf430367c4157 Mon Sep 17 00:00:00 2001 From: Jerry DeLisle Date: Mon, 19 Feb 2007 06:48:07 +0000 Subject: [PATCH] re PR fortran/30681 ("obsolescent" vs. "obsolete") 2007-02-18 Jerry DeLisle 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 --- gcc/fortran/ChangeLog | 7 +++++++ gcc/fortran/match.c | 4 ++-- gcc/fortran/options.c | 3 +-- 3 files changed, 10 insertions(+), 4 deletions(-) diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 388bfd60cd8..af395684bd2 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,10 @@ +2007-02-18 Jerry DeLisle + + 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. + 2007-02-18 Roger Sayle * trans-array.c (gfc_build_constant_array_constructor): When the 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; diff --git a/gcc/fortran/options.c b/gcc/fortran/options.c index 0f277665ac6..bd8f6ebf05e 100644 --- a/gcc/fortran/options.c +++ b/gcc/fortran/options.c @@ -100,8 +100,7 @@ gfc_init_options (unsigned int argc ATTRIBUTE_UNUSED, gfc_option.allow_std = GFC_STD_F95_OBS | GFC_STD_F95_DEL | GFC_STD_F2003 | GFC_STD_F95 | GFC_STD_F77 | GFC_STD_GNU | GFC_STD_LEGACY; - gfc_option.warn_std = GFC_STD_F95_OBS | GFC_STD_F95_DEL - | GFC_STD_LEGACY; + gfc_option.warn_std = GFC_STD_F95_DEL | GFC_STD_LEGACY; gfc_option.warn_nonstd_intrinsics = 0; -- 2.30.2