From 7c23ac0d25d2d5f814f53a6357d4c572e48f06d3 Mon Sep 17 00:00:00 2001 From: Fritz Reese Date: Thu, 10 Aug 2017 12:52:01 +0000 Subject: [PATCH] options.c (set_dec_flags): Only set legacy standards when value is not zero. 2017-08-10 Fritz Reese gcc/fortran/ChangeLog: * options.c (set_dec_flags): Only set legacy standards when value is not zero. From-SVN: r251025 --- gcc/fortran/ChangeLog | 5 +++++ gcc/fortran/options.c | 12 +++++++----- 2 files changed, 12 insertions(+), 5 deletions(-) diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 20fa93f6ec9..50f2f044908 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,8 @@ +2017-08-10 Fritz Reese + + * options.c (set_dec_flags): Only set legacy standards when value + is not zero. + 2017-08-10 Fritz Reese * options.c (set_dec_flags, gfc_post_options): Only set flag_d_lines diff --git a/gcc/fortran/options.c b/gcc/fortran/options.c index cd254e93229..f7bbd7f2cde 100644 --- a/gcc/fortran/options.c +++ b/gcc/fortran/options.c @@ -52,11 +52,13 @@ set_default_std_flags (void) static void set_dec_flags (int value) { - /* Allow legacy code without warnings. */ - gfc_option.allow_std |= GFC_STD_F95_OBS | GFC_STD_F95_DEL - | GFC_STD_GNU | GFC_STD_LEGACY; - gfc_option.warn_std &= ~(GFC_STD_LEGACY | GFC_STD_F95_DEL); - + if (value) + { + /* Allow legacy code without warnings. */ + gfc_option.allow_std |= GFC_STD_F95_OBS | GFC_STD_F95_DEL + | GFC_STD_GNU | GFC_STD_LEGACY; + gfc_option.warn_std &= ~(GFC_STD_LEGACY | GFC_STD_F95_DEL); + } /* Set other DEC compatibility extensions. */ flag_dollar_ok |= value; -- 2.30.2