Added --help descriptions of various command line switches

From-SVN: r21111

2 files changed, 131 insertions, 123 deletions

diff --git a/gcc/f/ChangeLog b/gcc/f/ChangeLog
index 0581add..662235e 100644
--- a/gcc/f/ChangeLog
+++ b/gcc/f/ChangeLog
@@ -1,3 +1,8 @@
+Mon Jul 13 17:30:29 1998  Nick Clifton  <nickc@cygnus.com>
+
+	* lang-options.h: Format changed to work with --help support added
+	to gcc/toplev.c
+
 Mon Jul 13 11:54:03 1998  Craig Burley  <burley@gnu.org>
 
 	* com.c (ffecom_push_tempvar): Replace kludge that
diff --git a/gcc/f/lang-options.h b/gcc/f/lang-options.h
index 79cc5f7..d91568d 100644
--- a/gcc/f/lang-options.h
+++ b/gcc/f/lang-options.h
@@ -27,133 +27,136 @@ the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA
 #ifdef __STDC__	/* To be consistent with lang-specs.h.  Maybe avoid
 		   overflowing some old compiler's tables, etc. */
 
-  "-fversion",
-  "-fnull-version",
+DEFINE_LANG_NAME ("Fortran")
+     
+  { "-fversion", "Report running the g77 specific compiler phase" },
+  { "-fnull-version", "" },
 /*"-fident",*/
 /*"-fno-ident",*/
-  "-ff66",
-  "-fno-f66",
-  "-ff77",
-  "-fno-f77",
-  "-ff90",
-  "-fno-f90",
-  "-fautomatic",
-  "-fno-automatic",
-  "-fdollar-ok",
-  "-fno-dollar-ok",
-  "-ff2c",
-  "-fno-f2c",
-  "-ff2c-library",
-  "-fno-f2c-library",
-  "-ffree-form",
-  "-fno-free-form",
-  "-ffixed-form",
-  "-fno-fixed-form",
-  "-fpedantic",
-  "-fno-pedantic",
-  "-fvxt",
-  "-fno-vxt",
-  "-fugly",
-  "-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",
-  "-fno-xyzzy",
-  "-finit-local-zero",
-  "-fno-init-local-zero",
-  "-fbackslash",
-  "-fno-backslash",
-  "-femulate-complex",
-  "-fno-emulate-complex",
-  "-funderscoring",
-  "-fno-underscoring",
-  "-fsecond-underscore",
-  "-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",
-  "-fno-zeros",
-  "-fdebug-kludge",
-  "-fno-debug-kludge",
-  "-fonetrip",
-  "-fno-onetrip",
-  "-fsilent",
-  "-fno-silent",
-  "-fglobals",
-  "-fno-globals",
-  "-ftypeless-boz",
-  "-fno-typeless-boz",
-  "-Wglobals",
-  "-Wno-globals",
+  { "-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",
-  "-Wno-surprising",
+  { "-Wsurprising", "Warn about suspicious constructs" },
+  { "-Wno-surprising", "" },
 /*"-Wall",*/
 /* Prefix options.  */
-  "-I",
-  "-ffixed-line-length-",
+  { "-I", "Add a directory for INCLUDE searching" },
+  { "-ffixed-line-length-", "Set the maximum line length" },
+
 #endif