From 530f70105f5394b85b3cbb8be80e494f1688557f Mon Sep 17 00:00:00 2001 From: Craig Burley Date: Sun, 19 Jul 1998 19:55:30 -0400 Subject: [PATCH] lang-options.h: Fix up doc strings. * lang-options.h: Fix up doc strings. Remove the unimplemented -fdcp-intrinsics-* options. * str-1t.fin: Change mixed-case spelling of `GoTo' from `Goto'. From-SVN: r21292 --- gcc/f/ChangeLog | 8 ++ gcc/f/lang-options.h | 184 +++++++++++++++++++++---------------------- gcc/f/str-1t.fin | 2 +- gcc/f/version.c | 2 +- 4 files changed, 100 insertions(+), 96 deletions(-) diff --git a/gcc/f/ChangeLog b/gcc/f/ChangeLog index c2c22840ab0..3aacae0f1da 100644 --- a/gcc/f/ChangeLog +++ b/gcc/f/ChangeLog @@ -1,3 +1,11 @@ +Sat Jul 18 19:16:48 1998 Craig Burley + + * lang-options.h: Fix up doc strings. + Remove the unimplemented -fdcp-intrinsics-* options. + + * str-1t.fin: Change mixed-case spelling of `GoTo' from + `Goto'. + Thu Jul 16 13:26:36 1998 Craig Burley * (ffecom_finish_symbol_transform_): Revert change diff --git a/gcc/f/lang-options.h b/gcc/f/lang-options.h index d91568d47a2..4b7c6b8fab6 100644 --- a/gcc/f/lang-options.h +++ b/gcc/f/lang-options.h @@ -29,130 +29,126 @@ the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA DEFINE_LANG_NAME ("Fortran") - { "-fversion", "Report running the g77 specific compiler phase" }, + { "-fversion", "Print g77-specific compiler version info, run internal tests" }, { "-fnull-version", "" }, /*"-fident",*/ /*"-fno-ident",*/ - { "-ff66", "Program is written in FORTRAN66" }, + { "-ff66", "Program is written in typical FORTRAN 66 dialect" }, { "-fno-f66", "" }, - { "-ff77", "Program is written in FORTRAN77" }, - { "-fno-f77", "" }, - { "-ff90", "Program is written in FORTRAN-90" }, + { "-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 locals as if they were named in SAVE statements" }, + { "-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", "Do not generate code compatible with f2c" }, + { "-fno-f2c", "f2c-compatible code need not be generated" }, { "-ff2c-library", "" }, - { "-fno-f2c-library", "" }, - { "-ffree-form", "" }, + { "-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", "source is written in free form" }, - { "-fpedantic", "Warn about use of Fortran extensions" }, + { "-fno-fixed-form", "" }, + { "-fpedantic", "Warn about use of (only a few for now) Fortran extensions" }, { "-fno-pedantic", "" }, - { "-fvxt", "Program is written in VXT FORTRAN" }, + { "-fvxt", "Program is written in VXT (Digital-like) FORTRAN" }, { "-fno-vxt", "" }, - { "-fugly", "Allow certain ugly features" }, + { "-fugly", "Obsolete; 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" }, + { "-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", "Initialise local arrays to zero" }, + { "-finit-local-zero", "Initialize local vars and arrays to zero" }, { "-fno-init-local-zero", "" }, { "-fbackslash", "" }, - { "-fno-backslash", "Do not interpret \\ preceeded characters specially" }, + { "-fno-backslash", "Backslashes in character/hollerith constants not special (C-style)" }, { "-femulate-complex", "" }, - { "-fno-emulate-complex", "Do not attempt to emulate COMPLEX arithmetic" }, + { "-fno-emulate-complex", "Have compiler back end cope with 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-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 debugging information for COMMON and EQUIVALENCE" }, + { "-fdebug-kludge", "Emit special debugging information for COMMON and EQUIVALENCE" }, { "-fno-debug-kludge", "" }, - { "-fonetrip", "Always perform DO loops at least once" }, + { "-fonetrip", "Take at least one trip through each iterative DO loop" }, { "-fno-onetrip", "" }, { "-fsilent", "" }, - { "-fno-silent", "Display names of program units as they are compiled" }, + { "-fno-silent", "Print names of program units as they are compiled" }, { "-fglobals", "" }, - { "-fno-globals", "Disable diagnostics about inter-procedural problems" }, + { "-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", "Inhibit warnings about globals used intrinsically" }, + { "-Wno-globals", "Disable warnings about inter-procedural problems" }, /*"-Wimplicit",*/ /*"-Wno-implicit",*/ - { "-Wsurprising", "Warn about suspicious constructs" }, + { "-Wsurprising", "Warn about constructs with surprising meanings" }, { "-Wno-surprising", "" }, /*"-Wall",*/ /* Prefix options. */ diff --git a/gcc/f/str-1t.fin b/gcc/f/str-1t.fin index 2ca235d6af0..674c92d2689 100644 --- a/gcc/f/str-1t.fin +++ b/gcc/f/str-1t.fin @@ -81,7 +81,7 @@ Find FIND Format FORMAT Function FUNCTION Go GO -Goto GOTO +GoTo GOTO If IF Implicit IMPLICIT Include INCLUDE diff --git a/gcc/f/version.c b/gcc/f/version.c index 5ff237db3d0..5bc030bcda1 100644 --- a/gcc/f/version.c +++ b/gcc/f/version.c @@ -1 +1 @@ -char *ffe_version_string = "0.5.24-19980715"; +char *ffe_version_string = "0.5.24-19980718";