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 | |
| 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')
| -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; |