Enlist the FreeBSD-CURRENT users as testers of what is to become Gcc 3.1.0.

These bits are taken from the FSF anoncvs repo on 1-Feb-2002 08:20 PST.

1 files changed, 203 insertions, 133 deletions

diff --git a/contrib/gcc/f/lang-options.h b/contrib/gcc/f/lang-options.h
index f9bb90d..b2821ed 100644
--- a/contrib/gcc/f/lang-options.h
+++ b/contrib/gcc/f/lang-options.h
@@ -1,5 +1,5 @@
 /* lang-options.h file for Fortran
-   Copyright (C) 1995-1998 Free Software Foundation, Inc.
+   Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000 Free Software Foundation, Inc.
    Contributed by James Craig Burley.
 
 This file is part of GNU Fortran.
@@ -21,149 +21,219 @@ the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA
 
 */
 
-/* This is the contribution to the `lang_options' array in gcc.c for
-   g77.  */
+/* This is the contribution to the `documented_lang_options' array in
+   toplev.c for g77.  */
 
 #ifdef __STDC__	/* To be consistent with lang-specs.h.  Maybe avoid
 		   overflowing some old compiler's tables, etc. */
 
 DEFINE_LANG_NAME ("Fortran")
 
-/* Use of FTNOPT makes tracking changes between FSF-g77 and egcs-g77
-   easier, since FSF-gcc doesn't support doc strings.  */
-#define FTNOPT(opt,doc) { opt, doc },
-
-FTNOPT( "-fversion", "Print g77-specific compiler version info, run internal tests" )
-FTNOPT( "-fnull-version", "" )
+  { "-fversion", 
+    N_("Print g77-specific compiler version info, run internal tests") },
 /*"-fident",*/
 /*"-fno-ident",*/
-FTNOPT( "-ff66", "Program is written in typical FORTRAN 66 dialect" )
-FTNOPT( "-fno-f66", "" )
-FTNOPT( "-ff77", "Program is written in typical Unix f77 dialect" )
-FTNOPT( "-fno-f77", "Program does not use Unix-f77 dialectal features" )
-FTNOPT( "-ff90", "Program is written in Fortran-90-ish dialect" )
-FTNOPT( "-fno-f90", "" )
-FTNOPT( "-fautomatic", "" )
-FTNOPT( "-fno-automatic", "Treat local vars and COMMON blocks as if they were named in SAVE statements" )
-FTNOPT( "-fdollar-ok", "Allow $ in symbol names" )
-FTNOPT( "-fno-dollar-ok", "" )
-FTNOPT( "-ff2c", "" )
-FTNOPT( "-fno-f2c", "f2c-compatible code need not be generated" )
-FTNOPT( "-ff2c-library", "" )
-FTNOPT( "-fno-f2c-library", "Unsupported; do not generate libf2c-calling code" )
-FTNOPT( "-fflatten-arrays", "Unsupported; affects code-generation of arrays" )
-FTNOPT( "-fno-flatten-arrays", "" )
-FTNOPT( "-ffree-form", "Program is written in Fortran-90-ish free form" )
-FTNOPT( "-fno-free-form", "" )
-FTNOPT( "-ffixed-form", "" )
-FTNOPT( "-fno-fixed-form", "" )
-FTNOPT( "-fpedantic", "Warn about use of (only a few for now) Fortran extensions" )
-FTNOPT( "-fno-pedantic", "" )
-FTNOPT( "-fvxt", "Program is written in VXT (Digital-like) FORTRAN" )
-FTNOPT( "-fno-vxt", "" )
-FTNOPT( "-fno-ugly", "Disallow all ugly features" )
-FTNOPT( "-fugly-args", "" )
-FTNOPT( "-fno-ugly-args", "Hollerith and typeless constants not passed as arguments" )
-FTNOPT( "-fugly-assign", "Allow ordinary copying of ASSIGN'ed vars" )
-FTNOPT( "-fno-ugly-assign", "" )
-FTNOPT( "-fugly-assumed", "Dummy array dimensioned to (1) is assumed-size" )
-FTNOPT( "-fno-ugly-assumed", "" )
-FTNOPT( "-fugly-comma", "Trailing comma in procedure call denotes null argument" )
-FTNOPT( "-fno-ugly-comma", "" )
-FTNOPT( "-fugly-complex", "Allow REAL(Z) and AIMAG(Z) given DOUBLE COMPLEX Z" )
-FTNOPT( "-fno-ugly-complex", "" )
-FTNOPT( "-fugly-init", "" )
-FTNOPT( "-fno-ugly-init", "Initialization via DATA and PARAMETER is type-compatible" )
-FTNOPT( "-fugly-logint", "Allow INTEGER and LOGICAL interchangeability" )
-FTNOPT( "-fno-ugly-logint", "" )
-FTNOPT( "-fxyzzy", "Print internal debugging-related info" )
-FTNOPT( "-fno-xyzzy", "" )
-FTNOPT( "-finit-local-zero", "Initialize local vars and arrays to zero" )
-FTNOPT( "-fno-init-local-zero", "" )
-FTNOPT( "-fbackslash", "" )
-FTNOPT( "-fno-backslash", "Backslashes in character/hollerith constants not special (C-style)" )
-FTNOPT( "-femulate-complex", "Have front end emulate COMPLEX arithmetic to avoid bugs" )
-FTNOPT( "-fno-emulate-complex", "" )
-FTNOPT( "-funderscoring", "" )
-FTNOPT( "-fno-underscoring", "Disable the appending of underscores to externals" )
-FTNOPT( "-fsecond-underscore", "" )
-FTNOPT( "-fno-second-underscore", "Never append a second underscore to externals" )
-FTNOPT( "-fintrin-case-initcap", "Intrinsics spelled as e.g. SqRt" )
-FTNOPT( "-fintrin-case-upper", "Intrinsics in uppercase" )
-FTNOPT( "-fintrin-case-lower", "" )
-FTNOPT( "-fintrin-case-any", "Intrinsics letters in arbitrary cases" )
-FTNOPT( "-fmatch-case-initcap", "Language keywords spelled as e.g. IOStat" )
-FTNOPT( "-fmatch-case-upper", "Language keywords in uppercase" )
-FTNOPT( "-fmatch-case-lower", "" )
-FTNOPT( "-fmatch-case-any", "Language keyword letters in arbitrary cases" )
-FTNOPT( "-fsource-case-upper", "Internally convert most source to uppercase" )
-FTNOPT( "-fsource-case-lower", "" )
-FTNOPT( "-fsource-case-preserve", "Internally preserve source case" )
-FTNOPT( "-fsymbol-case-initcap", "Symbol names spelled in mixed case" )
-FTNOPT( "-fsymbol-case-upper", "Symbol names in uppercase" )
-FTNOPT( "-fsymbol-case-lower", "Symbol names in lowercase" )
-FTNOPT( "-fsymbol-case-any", "" )
-FTNOPT( "-fcase-strict-upper", "Program written in uppercase" )
-FTNOPT( "-fcase-strict-lower", "Program written in lowercase" )
-FTNOPT( "-fcase-initcap", "Program written in strict mixed-case" )
-FTNOPT( "-fcase-upper", "Compile as if program written in uppercase" )
-FTNOPT( "-fcase-lower", "Compile as if program written in lowercase" )
-FTNOPT( "-fcase-preserve", "Preserve all spelling (case) used in program" )
-FTNOPT( "-fbadu77-intrinsics-delete", "Delete libU77 intrinsics with bad interfaces" )
-FTNOPT( "-fbadu77-intrinsics-disable", "Disable libU77 intrinsics with bad interfaces" )
-FTNOPT( "-fbadu77-intrinsics-enable", "" )
-FTNOPT( "-fbadu77-intrinsics-hide", "Hide libU77 intrinsics with bad interfaces" )
-FTNOPT( "-ff2c-intrinsics-delete", "Delete non-FORTRAN-77 intrinsics f2c supports" )
-FTNOPT( "-ff2c-intrinsics-disable", "Disable non-FORTRAN-77 intrinsics f2c supports" )
-FTNOPT( "-ff2c-intrinsics-enable", "" )
-FTNOPT( "-ff2c-intrinsics-hide", "Hide non-FORTRAN-77 intrinsics f2c supports" )
-FTNOPT( "-ff90-intrinsics-delete", "Delete non-FORTRAN-77 intrinsics F90 supports" )
-FTNOPT( "-ff90-intrinsics-disable", "Disable non-FORTRAN-77 intrinsics F90 supports" )
-FTNOPT( "-ff90-intrinsics-enable", "" )
-FTNOPT( "-ff90-intrinsics-hide", "Hide non-FORTRAN-77 intrinsics F90 supports" )
-FTNOPT( "-fgnu-intrinsics-delete", "Delete non-FORTRAN-77 intrinsics g77 supports" )
-FTNOPT( "-fgnu-intrinsics-disable", "Disable non-FORTRAN 77 intrinsics F90 supports" )
-FTNOPT( "-fgnu-intrinsics-enable", "" )
-FTNOPT( "-fgnu-intrinsics-hide", "Hide non-FORTRAN 77 intrinsics F90 supports" )
-FTNOPT( "-fmil-intrinsics-delete", "Delete MIL-STD 1753 intrinsics" )
-FTNOPT( "-fmil-intrinsics-disable", "Disable MIL-STD 1753 intrinsics" )
-FTNOPT( "-fmil-intrinsics-enable", "" )
-FTNOPT( "-fmil-intrinsics-hide", "Hide MIL-STD 1753 intrinsics" )
-FTNOPT( "-funix-intrinsics-delete", "Delete libU77 intrinsics" )
-FTNOPT( "-funix-intrinsics-disable", "Disable libU77 intrinsics" )
-FTNOPT( "-funix-intrinsics-enable", "" )
-FTNOPT( "-funix-intrinsics-hide", "Hide libU77 intrinsics" )
-FTNOPT( "-fvxt-intrinsics-delete", "Delete non-FORTRAN-77 intrinsics VXT FORTRAN supports" )
-FTNOPT( "-fvxt-intrinsics-disable", "Disable non-FORTRAN-77 intrinsics VXT FORTRAN supports" )
-FTNOPT( "-fvxt-intrinsics-enable", "" )
-FTNOPT( "-fvxt-intrinsics-hide", "Hide non-FORTRAN-77 intrinsics VXT FORTRAN supports" )
-FTNOPT( "-fzeros", "Treat initial values of 0 like non-zero values" )
-FTNOPT( "-fno-zeros", "" )
-FTNOPT( "-fdebug-kludge", "Emit special debugging information for COMMON and EQUIVALENCE" )
-FTNOPT( "-fno-debug-kludge", "" )
-FTNOPT( "-fonetrip", "Take at least one trip through each iterative DO loop" )
-FTNOPT( "-fno-onetrip", "" )
-FTNOPT( "-fsilent", "" )
-FTNOPT( "-fno-silent", "Print names of program units as they are compiled" )
-FTNOPT( "-fglobals", "" )
-FTNOPT( "-fno-globals", "Disable fatal diagnostics about inter-procedural problems" )
-FTNOPT( "-ftypeless-boz", "Make prefix-radix non-decimal constants be typeless" )
-FTNOPT( "-fno-typeless-boz", "" )
-FTNOPT( "-fbounds-check", "Generate code to check subscript and substring bounds" )
-FTNOPT( "-fno-bounds-check", "" )
-FTNOPT( "-ffortran-bounds-check", "Fortran-specific form of -fbounds-check")
-FTNOPT( "-fno-fortran-bounds-check", "" )
-FTNOPT( "-Wglobals", "" )
-FTNOPT( "-Wno-globals", "Disable warnings about inter-procedural problems" )
+  { "-ff66", 
+    N_("Program is written in typical FORTRAN 66 dialect") },
+  { "-fno-f66", "" },
+  { "-ff77", 
+    N_("Program is written in typical Unix f77 dialect") },
+  { "-fno-f77", 
+    N_("Program does not use Unix-f77 dialectal features") },
+  { "-ff90", 
+    N_("Program is written in Fortran-90-ish dialect") },
+  { "-fno-f90", "" },
+  { "-fautomatic", "" },
+  { "-fno-automatic", 
+    N_("Treat local vars and COMMON blocks as if they were named in SAVE statements") },
+  { "-fdollar-ok", 
+    N_("Allow $ in symbol names") },
+  { "-fno-dollar-ok", "" },
+  { "-ff2c", "" },
+  { "-fno-f2c", 
+    N_("f2c-compatible code need not be generated") },
+  { "-ff2c-library", "" },
+  { "-fno-f2c-library", 
+    N_("Unsupported; do not generate libf2c-calling code") },
+  { "-fflatten-arrays", 
+    N_("Unsupported; affects code-generation of arrays") },
+  { "-fno-flatten-arrays", "" },
+  { "-ffree-form", 
+    N_("Program is written in Fortran-90-ish free form") },
+  { "-fno-free-form", "" },
+  { "-ffixed-form", "" },
+  { "-fno-fixed-form", "" },
+  { "-fpedantic", 
+    N_("Warn about use of (only a few for now) Fortran extensions") },
+  { "-fno-pedantic", "" },
+  { "-fvxt", 
+    N_("Program is written in VXT (Digital-like) FORTRAN") },
+  { "-fno-vxt", "" },
+  { "-fno-ugly", 
+    N_("Disallow all ugly features") },
+  { "-fugly-args", "" },
+  { "-fno-ugly-args", 
+    N_("Hollerith and typeless constants not passed as arguments") },
+  { "-fugly-assign", 
+    N_("Allow ordinary copying of ASSIGN'ed vars") },
+  { "-fno-ugly-assign", "" },
+  { "-fugly-assumed", 
+    N_("Dummy array dimensioned to (1) is assumed-size") },
+  { "-fno-ugly-assumed", "" },
+  { "-fugly-comma", 
+    N_("Trailing comma in procedure call denotes null argument") },
+  { "-fno-ugly-comma", "" },
+  { "-fugly-complex", 
+    N_("Allow REAL(Z) and AIMAG(Z) given DOUBLE COMPLEX Z") },
+  { "-fno-ugly-complex", "" },
+  { "-fugly-init", "" },
+  { "-fno-ugly-init", 
+    N_("Initialization via DATA and PARAMETER is type-compatible") },
+  { "-fugly-logint", 
+    N_("Allow INTEGER and LOGICAL interchangeability") },
+  { "-fno-ugly-logint", "" },
+  { "-fxyzzy", 
+    N_("Print internal debugging-related info") },
+  { "-fno-xyzzy", "" },
+  { "-finit-local-zero", 
+    N_("Initialize local vars and arrays to zero") },
+  { "-fno-init-local-zero", "" },
+  { "-fbackslash", "" },
+  { "-fno-backslash", 
+    N_("Backslashes in character/hollerith constants not special (C-style)") },
+  { "-femulate-complex", 
+    N_("Have front end emulate COMPLEX arithmetic to avoid bugs") },
+  { "-fno-emulate-complex", "" },
+  { "-funderscoring", "" },
+  { "-fno-underscoring", 
+    N_("Disable the appending of underscores to externals") },
+  { "-fsecond-underscore", "" },
+  { "-fno-second-underscore", 
+    N_("Never append a second underscore to externals") },
+  { "-fintrin-case-initcap", 
+    N_("Intrinsics spelled as e.g. SqRt") },
+  { "-fintrin-case-upper", 
+    N_("Intrinsics in uppercase") },
+  { "-fintrin-case-lower", "" },
+  { "-fintrin-case-any", 
+    N_("Intrinsics letters in arbitrary cases") },
+  { "-fmatch-case-initcap", 
+    N_("Language keywords spelled as e.g. IOStat") },
+  { "-fmatch-case-upper", 
+    N_("Language keywords in uppercase") },
+  { "-fmatch-case-lower", "" },
+  { "-fmatch-case-any", 
+    N_("Language keyword letters in arbitrary cases") },
+  { "-fsource-case-upper", 
+    N_("Internally convert most source to uppercase") },
+  { "-fsource-case-lower", "" },
+  { "-fsource-case-preserve", 
+    N_("Internally preserve source case") },
+  { "-fsymbol-case-initcap", 
+    N_("Symbol names spelled in mixed case") },
+  { "-fsymbol-case-upper", 
+    N_("Symbol names in uppercase") },
+  { "-fsymbol-case-lower", 
+    N_("Symbol names in lowercase") },
+  { "-fsymbol-case-any", "" },
+  { "-fcase-strict-upper", 
+    N_("Program written in uppercase") },
+  { "-fcase-strict-lower", 
+    N_("Program written in lowercase") },
+  { "-fcase-initcap", 
+    N_("Program written in strict mixed-case") },
+  { "-fcase-upper", 
+    N_("Compile as if program written in uppercase") },
+  { "-fcase-lower", 
+    N_("Compile as if program written in lowercase") },
+  { "-fcase-preserve", 
+    N_("Preserve all spelling (case) used in program") },
+  { "-fbadu77-intrinsics-delete", 
+    N_("Delete libU77 intrinsics with bad interfaces") },
+  { "-fbadu77-intrinsics-disable", 
+    N_("Disable libU77 intrinsics with bad interfaces") },
+  { "-fbadu77-intrinsics-enable", "" },
+  { "-fbadu77-intrinsics-hide", 
+    N_("Hide libU77 intrinsics with bad interfaces") },
+  { "-ff2c-intrinsics-delete", 
+    N_("Delete non-FORTRAN-77 intrinsics f2c supports") },
+  { "-ff2c-intrinsics-disable", 
+    N_("Disable non-FORTRAN-77 intrinsics f2c supports") },
+  { "-ff2c-intrinsics-enable", "" },
+  { "-ff2c-intrinsics-hide", 
+    N_("Hide non-FORTRAN-77 intrinsics f2c supports") },
+  { "-ff90-intrinsics-delete", 
+    N_("Delete non-FORTRAN-77 intrinsics F90 supports") },
+  { "-ff90-intrinsics-disable", 
+    N_("Disable non-FORTRAN-77 intrinsics F90 supports") },
+  { "-ff90-intrinsics-enable", "" },
+  { "-ff90-intrinsics-hide", 
+    N_("Hide non-FORTRAN-77 intrinsics F90 supports") },
+  { "-fgnu-intrinsics-delete", 
+    N_("Delete non-FORTRAN-77 intrinsics g77 supports") },
+  { "-fgnu-intrinsics-disable", 
+    N_("Disable non-FORTRAN 77 intrinsics F90 supports") },
+  { "-fgnu-intrinsics-enable", "" },
+  { "-fgnu-intrinsics-hide", 
+    N_("Hide non-FORTRAN 77 intrinsics F90 supports") },
+  { "-fmil-intrinsics-delete", 
+    N_("Delete MIL-STD 1753 intrinsics") },
+  { "-fmil-intrinsics-disable", 
+    N_("Disable MIL-STD 1753 intrinsics") },
+  { "-fmil-intrinsics-enable", "" },
+  { "-fmil-intrinsics-hide", 
+    N_("Hide MIL-STD 1753 intrinsics") },
+  { "-funix-intrinsics-delete", 
+    N_("Delete libU77 intrinsics") },
+  { "-funix-intrinsics-disable", 
+    N_("Disable libU77 intrinsics") },
+  { "-funix-intrinsics-enable", "" },
+  { "-funix-intrinsics-hide", 
+    N_("Hide libU77 intrinsics") },
+  { "-fvxt-intrinsics-delete", 
+    N_("Delete non-FORTRAN-77 intrinsics VXT FORTRAN supports") },
+  { "-fvxt-intrinsics-disable", 
+    N_("Disable non-FORTRAN-77 intrinsics VXT FORTRAN supports") },
+  { "-fvxt-intrinsics-enable", "" },
+  { "-fvxt-intrinsics-hide", 
+    N_("Hide non-FORTRAN-77 intrinsics VXT FORTRAN supports") },
+  { "-fzeros", 
+    N_("Treat initial values of 0 like non-zero values") },
+  { "-fno-zeros", "" },
+  { "-fdebug-kludge", 
+    N_("Emit special debugging information for COMMON and EQUIVALENCE (disabled)") },
+  { "-fno-debug-kludge", "" },
+  { "-fonetrip", 
+    N_("Take at least one trip through each iterative DO loop") },
+  { "-fno-onetrip", "" },
+  { "-fsilent", "" },
+  { "-fno-silent", 
+    N_("Print names of program units as they are compiled") },
+  { "-fglobals", "" },
+  { "-fno-globals", 
+    N_("Disable fatal diagnostics about inter-procedural problems") },
+  { "-ftypeless-boz", 
+    N_("Make prefix-radix non-decimal constants be typeless") },
+  { "-fno-typeless-boz", "" },
+  { "-fbounds-check", 
+    N_("Generate code to check subscript and substring bounds") },
+  { "-fno-bounds-check", "" },
+  { "-ffortran-bounds-check",
+    N_("Fortran-specific form of -fbounds-check") },
+  { "-fno-fortran-bounds-check", "" },
+  { "-Wglobals", "" },
+  { "-Wno-globals", 
+    N_("Disable warnings about inter-procedural problems") },
 /*"-Wimplicit",*/
 /*"-Wno-implicit",*/
-FTNOPT( "-Wsurprising", "Warn about constructs with surprising meanings" )
-FTNOPT( "-Wno-surprising", "" )
+  { "-Wsurprising", 
+    N_("Warn about constructs with surprising meanings") },
+  { "-Wno-surprising", "" },
 /*"-Wall",*/
 /* Prefix options.  */
-FTNOPT( "-I", "Add a directory for INCLUDE searching" )
-FTNOPT( "-ffixed-line-length-", "Set the maximum line length" )
-
-#undef FTNOPT
+  { "-I", 
+    N_("Add a directory for INCLUDE searching") },
+  { "-ffixed-line-length-", 
+    N_("Set the maximum line length") },
 
 #endif