From: Fritz Reese <fritzoreese@gmail.com>
Date: Thu, 10 Aug 2017 12:52:01 +0000 (+0000)
Subject: options.c (set_dec_flags): Only set legacy standards when value is not zero.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=7c23ac0d25d2d5f814f53a6357d4c572e48f06d3;p=gcc.git

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 20fa93f6ec9..50f2f044908 100644
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,8 @@
+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
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;