This is the mail archive of the
gcc-patches@gcc.gnu.org
mailing list for the GCC project.
g77 --help patch
- To: egcs-patches at cygnus dot com
- Subject: g77 --help patch
- From: Craig Burley <burley at gnu dot org>
- Date: Sat, 18 Jul 1998 19:32:29 -0400 (EDT)
- Cc: law at cygnus dot com, nickc at cygnus dot com
- Cc: burley at gnu dot org
Wow! Wow! I sure love the new `gcc --help' and `gcc --verbose --help'
stuff that's gone into egcs 1.1!
Here is a patch to fix up the g77 portion of this output. It also
fixes a teeny tiny buglet I noticed while "researching" this,
one that isn't worth documenting (since I believe nobody uses the
relevant feature; it's a keyword-spelling issue that comes up only
when people are masochistic enough to use -fmatch-case-initcap).
Jeff, could you apply the enclosed patch to the egcs/f/ directory?
(This should go into both the 1.1 and mainline branches.)
tq vm, (burley)
Sat Jul 18 19:16:48 1998 Craig Burley <burley@gnu.org>
* lang-options.h: Fix up doc strings.
Remove the unimplemented -fdcp-intrinsics-* options.
* str-1t.fin: Change mixed-case spelling of `GoTo' from
`Goto'.
*** g77-e/gcc/f/lang-options.h.~1~ Mon Jul 13 13:32:15 1998
--- g77-e/gcc/f/lang-options.h Sat Jul 18 18:55:47 1998
*************** the Free Software Foundation, 59 Temple
*** 30,157 ****
DEFINE_LANG_NAME ("Fortran")
! { "-fversion", "Report running the g77 specific compiler phase" },
{ "-fnull-version", "" },
/*"-fident",*/
/*"-fno-ident",*/
! { "-ff66", "Program is written in FORTRAN66" },
{ "-fno-f66", "" },
! { "-ff77", "Program is written in FORTRAN77" },
! { "-fno-f77", "" },
! { "-ff90", "Program is written in FORTRAN-90" },
{ "-fno-f90", "" },
{ "-fautomatic", "" },
! { "-fno-automatic", "Treat locals as if they were named in SAVE statements" },
{ "-fdollar-ok", "Allow $ in symbol names" },
{ "-fno-dollar-ok", "" },
{ "-ff2c", "" },
! { "-fno-f2c", "Do not generate code compatible with f2c" },
{ "-ff2c-library", "" },
! { "-fno-f2c-library", "" },
! { "-ffree-form", "" },
{ "-fno-free-form", "" },
{ "-ffixed-form", "" },
! { "-fno-fixed-form", "source is written in free form" },
! { "-fpedantic", "Warn about use of Fortran extensions" },
{ "-fno-pedantic", "" },
! { "-fvxt", "Program is written in VXT FORTRAN" },
{ "-fno-vxt", "" },
! { "-fugly", "Allow certain ugly features" },
{ "-fno-ugly", "" },
! { "-fugly-args", },
! { "-fno-ugly-args", },
! { "-fugly-assign", },
! { "-fno-ugly-assign", },
! { "-fugly-assumed", },
! { "-fno-ugly-assumed", },
! { "-fugly-comma", },
! { "-fno-ugly-comma", },
! { "-fugly-complex", },
! { "-fno-ugly-complex", },
! { "-fugly-init", },
! { "-fno-ugly-init", },
! { "-fugly-logint", },
! { "-fno-ugly-logint", },
! { "-fxyzzy", "Enable debugging of Fortran front end" },
{ "-fno-xyzzy", "" },
! { "-finit-local-zero", "Initialise local arrays to zero" },
{ "-fno-init-local-zero", "" },
{ "-fbackslash", "" },
! { "-fno-backslash", "Do not interpret \\ preceeded characters specially" },
{ "-femulate-complex", "" },
! { "-fno-emulate-complex", "Do not attempt to emulate COMPLEX arithmetic" },
{ "-funderscoring", "" },
! { "-fno-underscoring", "Disable the prepending of underscores to externals" },
! { "-fsecond-underscore", "Do not append a second underscore to externals" },
! { "-fno-second-underscore", "" },
! { "-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-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", },
! { "-fbadu77-intrinsics-delete", },
! { "-fbadu77-intrinsics-disable", },
! { "-fbadu77-intrinsics-enable", },
! { "-fbadu77-intrinsics-hide", },
! { "-fdcp-intrinsics-delete", },
! { "-fdcp-intrinsics-disable", },
! { "-fdcp-intrinsics-enable", },
! { "-fdcp-intrinsics-hide", },
! { "-ff2c-intrinsics-delete", },
! { "-ff2c-intrinsics-disable", },
! { "-ff2c-intrinsics-enable", },
! { "-ff2c-intrinsics-hide", },
! { "-ff90-intrinsics-delete", },
! { "-ff90-intrinsics-disable", },
! { "-ff90-intrinsics-enable", },
! { "-ff90-intrinsics-hide", },
! { "-fgnu-intrinsics-delete", },
! { "-fgnu-intrinsics-disable", },
! { "-fgnu-intrinsics-enable", },
! { "-fgnu-intrinsics-hide", },
! { "-fmil-intrinsics-delete", },
! { "-fmil-intrinsics-disable", },
! { "-fmil-intrinsics-enable", },
! { "-fmil-intrinsics-hide", },
! { "-funix-intrinsics-delete", },
! { "-funix-intrinsics-disable", },
! { "-funix-intrinsics-enable", },
! { "-funix-intrinsics-hide", },
! { "-fvxt-intrinsics-delete", },
! { "-fvxt-intrinsics-disable", },
! { "-fvxt-intrinsics-enable", },
! { "-fvxt-intrinsics-hide", },
! { "-fzeros", "Treat initial values of 0 as real initialisations" },
{ "-fno-zeros", "" },
! { "-fdebug-kludge", "Emit debugging information for COMMON and EQUIVALENCE" },
{ "-fno-debug-kludge", "" },
! { "-fonetrip", "Always perform DO loops at least once" },
{ "-fno-onetrip", "" },
{ "-fsilent", "" },
! { "-fno-silent", "Display names of program units as they are compiled" },
{ "-fglobals", "" },
! { "-fno-globals", "Disable diagnostics about inter-procedural problems" },
{ "-ftypeless-boz", "Make prefix-radix non-decimal constants be typeless" },
{ "-fno-typeless-boz", "" },
{ "-Wglobals", "" },
! { "-Wno-globals", "Inhibit warnings about globals used intrinsically" },
/*"-Wimplicit",*/
/*"-Wno-implicit",*/
! { "-Wsurprising", "Warn about suspicious constructs" },
{ "-Wno-surprising", "" },
/*"-Wall",*/
--- 30,153 ----
DEFINE_LANG_NAME ("Fortran")
! { "-fversion", "Print g77-specific compiler version info, run internal tests" },
{ "-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" },
/*"-Wimplicit",*/
/*"-Wno-implicit",*/
! { "-Wsurprising", "Warn about constructs with surprising meanings" },
{ "-Wno-surprising", "" },
/*"-Wall",*/
*** g77-e/gcc/f/str-1t.fin.~1~ Tue May 19 06:50:22 1998
--- g77-e/gcc/f/str-1t.fin Sat Jul 18 18:15:06 1998
*************** Format FORMAT
*** 82,86 ****
Function FUNCTION
Go GO
! Goto GOTO
If IF
Implicit IMPLICIT
--- 82,86 ----
Function FUNCTION
Go GO
! GoTo GOTO
If IF
Implicit IMPLICIT
*** g77-e/gcc/f/version.c.~1~ Thu Jul 16 13:36:12 1998
--- g77-e/gcc/f/version.c Sat Jul 18 19:28:40 1998
***************
*** 1 ****
! char *ffe_version_string = "0.5.24-19980715";
--- 1 ----
! char *ffe_version_string = "0.5.24-19980718";