diff options
| -rw-r--r-- | gcc/fortran/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/fortran/options.c | 12 |
2 files changed, 12 insertions, 5 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 20fa93f..50f2f04 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,5 +1,10 @@ 2017-08-10 Fritz Reese <fritzoreese@gmail.com> + * options.c (set_dec_flags): Only set legacy standards when value + is not zero. + +2017-08-10 Fritz Reese <fritzoreese@gmail.com> + * options.c (set_dec_flags, gfc_post_options): Only set flag_d_lines with -fdec when not set by user. diff --git a/gcc/fortran/options.c b/gcc/fortran/options.c index cd254e9..f7bbd7f 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; |