Fix bad patch

From-SVN: r8989

1 files changed, 67 insertions, 68 deletions

diff --git a/gcc/toplev.c b/gcc/toplev.c
index 0316d5a..2d31fd7 100644
--- a/gcc/toplev.c
+++ b/gcc/toplev.c
@@ -17,74 +17,6 @@ You should have received a copy of the GNU General Public License
 along with GNU CC; see the file COPYING.  If not, write to
 the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
 
-  /* THESE ARE FOR FORTRAN. */
-  "-fversion",
-  "-ff90",
-  "-fno-f90",
-  "-fautomatic",
-  "-fno-automatic",
-  "-fdollar-ok",
-  "-fno-dollar-ok",
-  "-ff2c",
-  "-fno-f2c",
-  "-ff2c-library",
-  "-fno-f2c-library",
-  "-ffree-form",
-  "-fno-free-form",
-  "-ffixed-form",
-  "-fno-fixed-form",
-  "-fpedantic",
-  "-fno-pedantic",
-  "-fvxt-not-f90",
-  "-ff90-not-vxt",
-  "-fugly",
-  "-fno-ugly",
-  "-fdebug",
-  "-fno-debug",
-  "-fintrin-case-initcap",
-  "-fintrin-case-upper",
-  "-fintrin-case-lower",
-  "-fintrin-case-any",
-  "-fmatch-case-initcap",
-  "-fmatch-case-upper",
-  "-fmatch-case-lower",
-  "-fmatch-case-any",
-  "-fsource-case-upper",
-  "-fsource-case-upper",
-  "-fsource-case-lower",
-  "-fsource-case-preserve",
-  "-fsymbol-case-initcap",
-  "-fsymbol-case-upper",
-  "-fsymbol-case-lower",
-  "-fsymbol-case-any",
-  "-fcase-strict-upper",
-  "-fcase-strict-lower",
-  "-fcase-initcap",
-  "-fcase-upper",
-  "-fcase-lower",
-  "-fcase-preserve",
-  "-fdcp-intrinsics-delete",
-  "-fdcp-intrinsics-hide",
-  "-fdcp-intrinsics-disable",
-  "-fdcp-intrinsics-enable",
-  "-ff2c-intrinsics-delete",
-  "-ff2c-intrinsics-hide",
-  "-ff2c-intrinsics-disable",
-  "-ff2c-intrinsics-enable",
-  "-ff90-intrinsics-delete",
-  "-ff90-intrinsics-hide",
-  "-ff90-intrinsics-disable",
-  "-ff90-intrinsics-enable",
-  "-fmil-intrinsics-delete",
-  "-fmil-intrinsics-hide",
-  "-fmil-intrinsics-disable",
-  "-fmil-intrinsics-enable",
-  "-fvxt-intrinsics-delete",
-  "-fvxt-intrinsics-hide",
-  "-fvxt-intrinsics-disable",
-  "-fvxt-intrinsics-enable",
-
-
 /* This is the top level of cc1/c++.
    It parses command args, opens files, invokes the various passes
    in the proper order, and counts the time used by each.
@@ -803,6 +735,73 @@ char *lang_options[] =
   "-Wprotocol",
   "-Wno-protocol",
 
+  /* THESE ARE FOR FORTRAN. */
+  "-fversion",
+  "-ff90",
+  "-fno-f90",
+  "-fautomatic",
+  "-fno-automatic",
+  "-fdollar-ok",
+  "-fno-dollar-ok",
+  "-ff2c",
+  "-fno-f2c",
+  "-ff2c-library",
+  "-fno-f2c-library",
+  "-ffree-form",
+  "-fno-free-form",
+  "-ffixed-form",
+  "-fno-fixed-form",
+  "-fpedantic",
+  "-fno-pedantic",
+  "-fvxt-not-f90",
+  "-ff90-not-vxt",
+  "-fugly",
+  "-fno-ugly",
+  "-fdebug",
+  "-fno-debug",
+  "-fintrin-case-initcap",
+  "-fintrin-case-upper",
+  "-fintrin-case-lower",
+  "-fintrin-case-any",
+  "-fmatch-case-initcap",
+  "-fmatch-case-upper",
+  "-fmatch-case-lower",
+  "-fmatch-case-any",
+  "-fsource-case-upper",
+  "-fsource-case-upper",
+  "-fsource-case-lower",
+  "-fsource-case-preserve",
+  "-fsymbol-case-initcap",
+  "-fsymbol-case-upper",
+  "-fsymbol-case-lower",
+  "-fsymbol-case-any",
+  "-fcase-strict-upper",
+  "-fcase-strict-lower",
+  "-fcase-initcap",
+  "-fcase-upper",
+  "-fcase-lower",
+  "-fcase-preserve",
+  "-fdcp-intrinsics-delete",
+  "-fdcp-intrinsics-hide",
+  "-fdcp-intrinsics-disable",
+  "-fdcp-intrinsics-enable",
+  "-ff2c-intrinsics-delete",
+  "-ff2c-intrinsics-hide",
+  "-ff2c-intrinsics-disable",
+  "-ff2c-intrinsics-enable",
+  "-ff90-intrinsics-delete",
+  "-ff90-intrinsics-hide",
+  "-ff90-intrinsics-disable",
+  "-ff90-intrinsics-enable",
+  "-fmil-intrinsics-delete",
+  "-fmil-intrinsics-hide",
+  "-fmil-intrinsics-disable",
+  "-fmil-intrinsics-enable",
+  "-fvxt-intrinsics-delete",
+  "-fvxt-intrinsics-hide",
+  "-fvxt-intrinsics-disable",
+  "-fvxt-intrinsics-enable",
+
   /* This is for GNAT and is temporary.  */
   "-gnat",
   0