diff options
| author | Fritz Reese <fritzoreese@gmail.com> | 2017-08-10 12:52:01 +0000 |
|---|---|---|
| committer | Fritz Reese <foreese@gcc.gnu.org> | 2017-08-10 12:52:01 +0000 |
| commit | 7c23ac0d25d2d5f814f53a6357d4c572e48f06d3 (patch) | |
| tree | 6c1a29d9da408c97145d581e8f5233d6cfbea367 /gcc/fortran/options.c | |
| parent | 57e1270f58ad000b55282ae12b3c641f940bc923 (diff) | |
| download | gcc-7c23ac0d25d2d5f814f53a6357d4c572e48f06d3.zip gcc-7c23ac0d25d2d5f814f53a6357d4c572e48f06d3.tar.gz gcc-7c23ac0d25d2d5f814f53a6357d4c572e48f06d3.tar.bz2 | |
options.c (set_dec_flags): Only set legacy standards when value is not zero.
2017-08-10 Fritz Reese <fritzoreese@gmail.com>
gcc/fortran/ChangeLog:
* options.c (set_dec_flags): Only set legacy standards when value
is not zero.
From-SVN: r251025
Diffstat (limited to 'gcc/fortran/options.c')
| -rw-r--r-- | gcc/fortran/options.c | 12 |
1 files changed, 7 insertions, 5 deletions
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; |