From: Jakub Jelinek <jakub@redhat.com>
Date: Thu, 19 Jul 2001 19:44:12 +0000 (+0200)
Subject: top.c (ffe_decode_option): Disallow lang-independent processing for -ffixed-form.
X-Git-Tag: prereleases/libstdc++-3.0.95~3179
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=8d3216f82da82f921fd4f684661b5597fde436c6;p=thirdparty%2Fgcc.git

top.c (ffe_decode_option): Disallow lang-independent processing for -ffixed-form.

	* top.c (ffe_decode_option): Disallow lang-independent processing
	for -ffixed-form.

From-SVN: r44159
---

diff --git a/gcc/f/ChangeLog b/gcc/f/ChangeLog
index 15e93100b190..fecadfad0b88 100644
--- a/gcc/f/ChangeLog
+++ b/gcc/f/ChangeLog
@@ -1,3 +1,8 @@
+2001-07-19  Jakub Jelinek  <jakub@redhat.com>
+
+	* top.c (ffe_decode_option): Disallow lang-independent processing
+	for -ffixed-form.
+
 2001-07-19  Toon Moene  <toon@moene.indiv.nluug.nl>
 
 	* f/com.c (ffecom_expr_intrinsic_): Deal (correctly) with
diff --git a/gcc/f/top.c b/gcc/f/top.c
index 9675989e2105..f446768f14d3 100644
--- a/gcc/f/top.c
+++ b/gcc/f/top.c
@@ -225,7 +225,10 @@ ffe_decode_option (argc, argv)
       else if (strcmp (&opt[2], "no-free-form") == 0)
 	ffe_set_is_free_form (FALSE);
       else if (strcmp (&opt[2], "fixed-form") == 0)
-	ffe_set_is_free_form (FALSE);
+	{
+	  ffe_set_is_free_form (FALSE);
+	  return -1;
+	}
       else if (strcmp (&opt[2], "no-fixed-form") == 0)
 	ffe_set_is_free_form (TRUE);
       else if (strcmp (&opt[2], "pedantic") == 0)