From eacd66f4731c608f7c84deaeea937fc9ebe292e0 Mon Sep 17 00:00:00 2001 From: Craig Burley Date: Sat, 5 Sep 1998 06:43:42 -0400 Subject: [PATCH] lang-options.h: Convert to wrap option and doc string in a new macro invocation... Fri Sep 4 18:35:52 1998 Craig Burley * lang-options.h: Convert to wrap option and doc string in a new macro invocation, FTNOPT, so the nearly identical list can be used in FSF-g77. From-SVN: r22250 --- gcc/f/ChangeLog | 6 ++ gcc/f/lang-options.h | 246 ++++++++++++++++++++++--------------------- 2 files changed, 132 insertions(+), 120 deletions(-) diff --git a/gcc/f/ChangeLog b/gcc/f/ChangeLog index ab428e33927..835b1257f7b 100644 --- a/gcc/f/ChangeLog +++ b/gcc/f/ChangeLog @@ -7,6 +7,12 @@ Fri Sep 4 19:53:34 1998 Craig Burley * intdoc.in: Minor editorial tweaks. +Fri Sep 4 18:35:52 1998 Craig Burley + + * lang-options.h: Convert to wrap option and doc string + in a new macro invocation, FTNOPT, so the nearly identical + list can be used in FSF-g77. + Fri Sep 4 18:35:52 1998 Craig Burley * Makefile.in (fini.o): Don't define USE_HCONFIG here. diff --git a/gcc/f/lang-options.h b/gcc/f/lang-options.h index 4b7c6b8fab6..0fa927a2156 100644 --- a/gcc/f/lang-options.h +++ b/gcc/f/lang-options.h @@ -28,131 +28,137 @@ the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA overflowing some old compiler's tables, etc. */ DEFINE_LANG_NAME ("Fortran") - - { "-fversion", "Print g77-specific compiler version info, run internal tests" }, - { "-fnull-version", "" }, + +/* 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", "" ) /*"-fident",*/ /*"-fno-ident",*/ - { "-ff66", "Program is written in typical FORTRAN 66 dialect" }, - { "-fno-f66", "" }, - { "-ff77", "Program is written in typical Unix f77 dialect" }, - { "-fno-f77", "Program does not use Unix-f77 dialectal features" }, - { "-ff90", "Program is written in Fortran-90-ish dialect" }, - { "-fno-f90", "" }, - { "-fautomatic", "" }, - { "-fno-automatic", "Treat local vars and COMMON blocks as if they were named in SAVE statements" }, - { "-fdollar-ok", "Allow $ in symbol names" }, - { "-fno-dollar-ok", "" }, - { "-ff2c", "" }, - { "-fno-f2c", "f2c-compatible code need not be generated" }, - { "-ff2c-library", "" }, - { "-fno-f2c-library", "Unsupported; do not generate libf2c-calling code" }, - { "-ffree-form", "Program is written in Fortran-90-ish free form" }, - { "-fno-free-form", "" }, - { "-ffixed-form", "" }, - { "-fno-fixed-form", "" }, - { "-fpedantic", "Warn about use of (only a few for now) Fortran extensions" }, - { "-fno-pedantic", "" }, - { "-fvxt", "Program is written in VXT (Digital-like) FORTRAN" }, - { "-fno-vxt", "" }, - { "-fugly", "Obsolete; allow certain ugly features" }, - { "-fno-ugly", "" }, - { "-fugly-args", "" }, - { "-fno-ugly-args", "Hollerith and typeless constants not passed as arguments" }, - { "-fugly-assign", "Allow ordinary copying of ASSIGN'ed vars" }, - { "-fno-ugly-assign", "" }, - { "-fugly-assumed", "Dummy array dimensioned to (1) is assumed-size" }, - { "-fno-ugly-assumed", "" }, - { "-fugly-comma", "Trailing comma in procedure call denotes null argument" }, - { "-fno-ugly-comma", "" }, - { "-fugly-complex", "Allow REAL(Z) and AIMAG(Z) given DOUBLE COMPLEX Z" }, - { "-fno-ugly-complex", "" }, - { "-fugly-init", "" }, - { "-fno-ugly-init", "Initialization via DATA and PARAMETER is type-compatible" }, - { "-fugly-logint", "Allow INTEGER and LOGICAL interchangeability" }, - { "-fno-ugly-logint", "" }, - { "-fxyzzy", "Print internal debugging-related info" }, - { "-fno-xyzzy", "" }, - { "-finit-local-zero", "Initialize local vars and arrays to zero" }, - { "-fno-init-local-zero", "" }, - { "-fbackslash", "" }, - { "-fno-backslash", "Backslashes in character/hollerith constants not special (C-style)" }, - { "-femulate-complex", "" }, - { "-fno-emulate-complex", "Have compiler back end cope with COMPLEX arithmetic" }, - { "-funderscoring", "" }, - { "-fno-underscoring", "Disable the appending of underscores to externals" }, - { "-fsecond-underscore", "" }, - { "-fno-second-underscore", "Never append a second underscore to externals" }, - { "-fintrin-case-initcap", "Intrinsics spelled as e.g. SqRt" }, - { "-fintrin-case-upper", "Intrinsics in uppercase" }, - { "-fintrin-case-lower", "" }, - { "-fintrin-case-any", "Intrinsics letters in arbitrary cases" }, - { "-fmatch-case-initcap", "Language keywords spelled as e.g. IOStat" }, - { "-fmatch-case-upper", "Language keywords in uppercase" }, - { "-fmatch-case-lower", "" }, - { "-fmatch-case-any", "Language keyword letters in arbitrary cases" }, - { "-fsource-case-upper", "Internally convert most source to uppercase" }, - { "-fsource-case-lower", "" }, - { "-fsource-case-preserve", "Internally preserve source case" }, - { "-fsymbol-case-initcap", "Symbol names spelled in mixed case" }, - { "-fsymbol-case-upper", "Symbol names in uppercase" }, - { "-fsymbol-case-lower", "Symbol names in lowercase" }, - { "-fsymbol-case-any", "" }, - { "-fcase-strict-upper", "Program written in uppercase" }, - { "-fcase-strict-lower", "Program written in lowercase" }, - { "-fcase-initcap", "Program written in strict mixed-case" }, - { "-fcase-upper", "Compile as if program written in uppercase" }, - { "-fcase-lower", "Compile as if program written in lowercase" }, - { "-fcase-preserve", "Preserve all spelling (case) used in program" }, - { "-fbadu77-intrinsics-delete", "Delete libU77 intrinsics with bad interfaces" }, - { "-fbadu77-intrinsics-disable", "Disable libU77 intrinsics with bad interfaces" }, - { "-fbadu77-intrinsics-enable", "" }, - { "-fbadu77-intrinsics-hide", "Hide libU77 intrinsics with bad interfaces" }, - { "-ff2c-intrinsics-delete", "Delete non-FORTRAN-77 intrinsics f2c supports" }, - { "-ff2c-intrinsics-disable", "Disable non-FORTRAN-77 intrinsics f2c supports" }, - { "-ff2c-intrinsics-enable", "" }, - { "-ff2c-intrinsics-hide", "Hide non-FORTRAN-77 intrinsics f2c supports" }, - { "-ff90-intrinsics-delete", "Delete non-FORTRAN-77 intrinsics F90 supports" }, - { "-ff90-intrinsics-disable", "Disable non-FORTRAN-77 intrinsics F90 supports" }, - { "-ff90-intrinsics-enable", "" }, - { "-ff90-intrinsics-hide", "Hide non-FORTRAN-77 intrinsics F90 supports" }, - { "-fgnu-intrinsics-delete", "Delete non-FORTRAN-77 intrinsics g77 supports" }, - { "-fgnu-intrinsics-disable", "Disable non-FORTRAN 77 intrinsics F90 supports" }, - { "-fgnu-intrinsics-enable", "" }, - { "-fgnu-intrinsics-hide", "Hide non-FORTRAN 77 intrinsics F90 supports" }, - { "-fmil-intrinsics-delete", "Delete MIL-STD 1753 intrinsics" }, - { "-fmil-intrinsics-disable", "Disable MIL-STD 1753 intrinsics" }, - { "-fmil-intrinsics-enable", "" }, - { "-fmil-intrinsics-hide", "Hide MIL-STD 1753 intrinsics" }, - { "-funix-intrinsics-delete", "Delete libU77 intrinsics" }, - { "-funix-intrinsics-disable", "Disable libU77 intrinsics" }, - { "-funix-intrinsics-enable", "" }, - { "-funix-intrinsics-hide", "Hide libU77 intrinsics" }, - { "-fvxt-intrinsics-delete", "Delete non-FORTRAN-77 intrinsics VXT FORTRAN supports" }, - { "-fvxt-intrinsics-disable", "Disable non-FORTRAN-77 intrinsics VXT FORTRAN supports" }, - { "-fvxt-intrinsics-enable", "" }, - { "-fvxt-intrinsics-hide", "Hide non-FORTRAN-77 intrinsics VXT FORTRAN supports" }, - { "-fzeros", "Treat initial values of 0 like non-zero values" }, - { "-fno-zeros", "" }, - { "-fdebug-kludge", "Emit special debugging information for COMMON and EQUIVALENCE" }, - { "-fno-debug-kludge", "" }, - { "-fonetrip", "Take at least one trip through each iterative DO loop" }, - { "-fno-onetrip", "" }, - { "-fsilent", "" }, - { "-fno-silent", "Print names of program units as they are compiled" }, - { "-fglobals", "" }, - { "-fno-globals", "Disable fatal diagnostics about inter-procedural problems" }, - { "-ftypeless-boz", "Make prefix-radix non-decimal constants be typeless" }, - { "-fno-typeless-boz", "" }, - { "-Wglobals", "" }, - { "-Wno-globals", "Disable warnings about inter-procedural problems" }, +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( "-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( "-fugly", "Obsolete; allow certain ugly features" ) +FTNOPT( "-fno-ugly", "" ) +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", "" ) +FTNOPT( "-fno-emulate-complex", "Have compiler back end cope with COMPLEX arithmetic" ) +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( "-Wglobals", "" ) +FTNOPT( "-Wno-globals", "Disable warnings about inter-procedural problems" ) /*"-Wimplicit",*/ /*"-Wno-implicit",*/ - { "-Wsurprising", "Warn about constructs with surprising meanings" }, - { "-Wno-surprising", "" }, +FTNOPT( "-Wsurprising", "Warn about constructs with surprising meanings" ) +FTNOPT( "-Wno-surprising", "" ) /*"-Wall",*/ /* Prefix options. */ - { "-I", "Add a directory for INCLUDE searching" }, - { "-ffixed-line-length-", "Set the maximum line length" }, +FTNOPT( "-I", "Add a directory for INCLUDE searching" ) +FTNOPT( "-ffixed-line-length-", "Set the maximum line length" ) + +#undef FTNOPT #endif -- 2.30.2