From c9ab9ae440a8066b2c2b85b157b1fdadcf09916a Mon Sep 17 00:00:00 2001 From: obrien Date: Fri, 1 Feb 2002 18:16:02 +0000 Subject: 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. --- contrib/gcc/f/lang-options.h | 336 ++++++++++++++++++++++++++----------------- 1 file changed, 203 insertions(+), 133 deletions(-) (limited to 'contrib/gcc/f/lang-options.h') 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 -- cgit v1.1