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

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 20fa93f..50f2f04 100644 (file)
--- 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 (file)
--- 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;