gcc/f/lang-options.h

   1 /* lang-options.h file for Fortran
   2    Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000 Free Software Foundation, Inc.
   3    Contributed by James Craig Burley.
   4
   5 This file is part of GNU Fortran.
   6
   7 GNU Fortran is free software; you can redistribute it and/or modify
   8 it under the terms of the GNU General Public License as published by
   9 the Free Software Foundation; either version 2, or (at your option)
  10 any later version.
  11
  12 GNU Fortran is distributed in the hope that it will be useful,
  13 but WITHOUT ANY WARRANTY; without even the implied warranty of
  14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15 GNU General Public License for more details.
  16
  17 You should have received a copy of the GNU General Public License
  18 along with GNU Fortran; see the file COPYING.  If not, write to
  19 the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA
  20 02111-1307, USA.
  21
  22 */
  23
  24 /* This is the contribution to the `documented_lang_options' array in
  25    toplev.c for g77.  */
  26
  27 #ifdef __STDC__ /* To be consistent with lang-specs.h.  Maybe avoid
  28                    overflowing some old compiler's tables, etc. */
  29
  30 DEFINE_LANG_NAME ("Fortran")
  31
  32   { "-fversion",
  33     N_("Print g77-specific compiler version info, run internal tests") },
  34   { "-fnull-version", "" },
  35 /*"-fident",*/
  36 /*"-fno-ident",*/
  37   { "-ff66",
  38     N_("Program is written in typical FORTRAN 66 dialect") },
  39   { "-fno-f66", "" },
  40   { "-ff77",
  41     N_("Program is written in typical Unix f77 dialect") },
  42   { "-fno-f77",
  43     N_("Program does not use Unix-f77 dialectal features") },
  44   { "-ff90",
  45     N_("Program is written in Fortran-90-ish dialect") },
  46   { "-fno-f90", "" },
  47   { "-fautomatic", "" },
  48   { "-fno-automatic",
  49     N_("Treat local vars and COMMON blocks as if they were named in SAVE statements") },
  50   { "-fdollar-ok",
  51     N_("Allow $ in symbol names") },
  52   { "-fno-dollar-ok", "" },
  53   { "-ff2c", "" },
  54   { "-fno-f2c",
  55     N_("f2c-compatible code need not be generated") },
  56   { "-ff2c-library", "" },
  57   { "-fno-f2c-library",
  58     N_("Unsupported; do not generate libf2c-calling code") },
  59   { "-fflatten-arrays",
  60     N_("Unsupported; affects code-generation of arrays") },
  61   { "-fno-flatten-arrays", "" },
  62   { "-ffree-form",
  63     N_("Program is written in Fortran-90-ish free form") },
  64   { "-fno-free-form", "" },
  65   { "-ffixed-form", "" },
  66   { "-fno-fixed-form", "" },
  67   { "-fpedantic",
  68     N_("Warn about use of (only a few for now) Fortran extensions") },
  69   { "-fno-pedantic", "" },
  70   { "-fvxt",
  71     N_("Program is written in VXT (Digital-like) FORTRAN") },
  72   { "-fno-vxt", "" },
  73   { "-fno-ugly",
  74     N_("Disallow all ugly features") },
  75   { "-fugly-args", "" },
  76   { "-fno-ugly-args",
  77     N_("Hollerith and typeless constants not passed as arguments") },
  78   { "-fugly-assign",
  79     N_("Allow ordinary copying of ASSIGN'ed vars") },
  80   { "-fno-ugly-assign", "" },
  81   { "-fugly-assumed",
  82     N_("Dummy array dimensioned to (1) is assumed-size") },
  83   { "-fno-ugly-assumed", "" },
  84   { "-fugly-comma",
  85     N_("Trailing comma in procedure call denotes null argument") },
  86   { "-fno-ugly-comma", "" },
  87   { "-fugly-complex",
  88     N_("Allow REAL(Z) and AIMAG(Z) given DOUBLE COMPLEX Z") },
  89   { "-fno-ugly-complex", "" },
  90   { "-fugly-init", "" },
  91   { "-fno-ugly-init",
  92     N_("Initialization via DATA and PARAMETER is type-compatible") },
  93   { "-fugly-logint",
  94     N_("Allow INTEGER and LOGICAL interchangeability") },
  95   { "-fno-ugly-logint", "" },
  96   { "-fxyzzy",
  97     N_("Print internal debugging-related info") },
  98   { "-fno-xyzzy", "" },
  99   { "-finit-local-zero",
 100     N_("Initialize local vars and arrays to zero") },
 101   { "-fno-init-local-zero", "" },
 102   { "-fbackslash", "" },
 103   { "-fno-backslash",
 104     N_("Backslashes in character/hollerith constants not special (C-style)") },
 105   { "-femulate-complex",
 106     N_("Have front end emulate COMPLEX arithmetic to avoid bugs") },
 107   { "-fno-emulate-complex", "" },
 108   { "-funderscoring", "" },
 109   { "-fno-underscoring",
 110     N_("Disable the appending of underscores to externals") },
 111   { "-fsecond-underscore", "" },
 112   { "-fno-second-underscore",
 113     N_("Never append a second underscore to externals") },
 114   { "-fintrin-case-initcap",
 115     N_("Intrinsics spelled as e.g. SqRt") },
 116   { "-fintrin-case-upper",
 117     N_("Intrinsics in uppercase") },
 118   { "-fintrin-case-lower", "" },
 119   { "-fintrin-case-any",
 120     N_("Intrinsics letters in arbitrary cases") },
 121   { "-fmatch-case-initcap",
 122     N_("Language keywords spelled as e.g. IOStat") },
 123   { "-fmatch-case-upper",
 124     N_("Language keywords in uppercase") },
 125   { "-fmatch-case-lower", "" },
 126   { "-fmatch-case-any",
 127     N_("Language keyword letters in arbitrary cases") },
 128   { "-fsource-case-upper",
 129     N_("Internally convert most source to uppercase") },
 130   { "-fsource-case-lower", "" },
 131   { "-fsource-case-preserve",
 132     N_("Internally preserve source case") },
 133   { "-fsymbol-case-initcap",
 134     N_("Symbol names spelled in mixed case") },
 135   { "-fsymbol-case-upper",
 136     N_("Symbol names in uppercase") },
 137   { "-fsymbol-case-lower",
 138     N_("Symbol names in lowercase") },
 139   { "-fsymbol-case-any", "" },
 140   { "-fcase-strict-upper",
 141     N_("Program written in uppercase") },
 142   { "-fcase-strict-lower",
 143     N_("Program written in lowercase") },
 144   { "-fcase-initcap",
 145     N_("Program written in strict mixed-case") },
 146   { "-fcase-upper",
 147     N_("Compile as if program written in uppercase") },
 148   { "-fcase-lower",
 149     N_("Compile as if program written in lowercase") },
 150   { "-fcase-preserve",
 151     N_("Preserve all spelling (case) used in program") },
 152   { "-fbadu77-intrinsics-delete",
 153     N_("Delete libU77 intrinsics with bad interfaces") },
 154   { "-fbadu77-intrinsics-disable",
 155     N_("Disable libU77 intrinsics with bad interfaces") },
 156   { "-fbadu77-intrinsics-enable", "" },
 157   { "-fbadu77-intrinsics-hide",
 158     N_("Hide libU77 intrinsics with bad interfaces") },
 159   { "-ff2c-intrinsics-delete",
 160     N_("Delete non-FORTRAN-77 intrinsics f2c supports") },
 161   { "-ff2c-intrinsics-disable",
 162     N_("Disable non-FORTRAN-77 intrinsics f2c supports") },
 163   { "-ff2c-intrinsics-enable", "" },
 164   { "-ff2c-intrinsics-hide",
 165     N_("Hide non-FORTRAN-77 intrinsics f2c supports") },
 166   { "-ff90-intrinsics-delete",
 167     N_("Delete non-FORTRAN-77 intrinsics F90 supports") },
 168   { "-ff90-intrinsics-disable",
 169     N_("Disable non-FORTRAN-77 intrinsics F90 supports") },
 170   { "-ff90-intrinsics-enable", "" },
 171   { "-ff90-intrinsics-hide",
 172     N_("Hide non-FORTRAN-77 intrinsics F90 supports") },
 173   { "-fgnu-intrinsics-delete",
 174     N_("Delete non-FORTRAN-77 intrinsics g77 supports") },
 175   { "-fgnu-intrinsics-disable",
 176     N_("Disable non-FORTRAN 77 intrinsics F90 supports") },
 177   { "-fgnu-intrinsics-enable", "" },
 178   { "-fgnu-intrinsics-hide",
 179     N_("Hide non-FORTRAN 77 intrinsics F90 supports") },
 180   { "-fmil-intrinsics-delete",
 181     N_("Delete MIL-STD 1753 intrinsics") },
 182   { "-fmil-intrinsics-disable",
 183     N_("Disable MIL-STD 1753 intrinsics") },
 184   { "-fmil-intrinsics-enable", "" },
 185   { "-fmil-intrinsics-hide",
 186     N_("Hide MIL-STD 1753 intrinsics") },
 187   { "-funix-intrinsics-delete",
 188     N_("Delete libU77 intrinsics") },
 189   { "-funix-intrinsics-disable",
 190     N_("Disable libU77 intrinsics") },
 191   { "-funix-intrinsics-enable", "" },
 192   { "-funix-intrinsics-hide",
 193     N_("Hide libU77 intrinsics") },
 194   { "-fvxt-intrinsics-delete",
 195     N_("Delete non-FORTRAN-77 intrinsics VXT FORTRAN supports") },
 196   { "-fvxt-intrinsics-disable",
 197     N_("Disable non-FORTRAN-77 intrinsics VXT FORTRAN supports") },
 198   { "-fvxt-intrinsics-enable", "" },
 199   { "-fvxt-intrinsics-hide",
 200     N_("Hide non-FORTRAN-77 intrinsics VXT FORTRAN supports") },
 201   { "-fzeros",
 202     N_("Treat initial values of 0 like non-zero values") },
 203   { "-fno-zeros", "" },
 204   { "-fdebug-kludge",
 205     N_("Emit special debugging information for COMMON and EQUIVALENCE (disabled)") },
 206   { "-fno-debug-kludge", "" },
 207   { "-fonetrip",
 208     N_("Take at least one trip through each iterative DO loop") },
 209   { "-fno-onetrip", "" },
 210   { "-fsilent", "" },
 211   { "-fno-silent",
 212     N_("Print names of program units as they are compiled") },
 213   { "-fglobals", "" },
 214   { "-fno-globals",
 215     N_("Disable fatal diagnostics about inter-procedural problems") },
 216   { "-ftypeless-boz",
 217     N_("Make prefix-radix non-decimal constants be typeless") },
 218   { "-fno-typeless-boz", "" },
 219   { "-fbounds-check",
 220     N_("Generate code to check subscript and substring bounds") },
 221   { "-fno-bounds-check", "" },
 222   { "-ffortran-bounds-check",
 223     N_("Fortran-specific form of -fbounds-check") },
 224   { "-fno-fortran-bounds-check", "" },
 225   { "-Wglobals", "" },
 226   { "-Wno-globals",
 227     N_("Disable warnings about inter-procedural problems") },
 228 /*"-Wimplicit",*/
 229 /*"-Wno-implicit",*/
 230   { "-Wsurprising",
 231     N_("Warn about constructs with surprising meanings") },
 232   { "-Wno-surprising", "" },
 233 /*"-Wall",*/
 234 /* Prefix options.  */
 235   { "-I",
 236     N_("Add a directory for INCLUDE searching") },
 237   { "-ffixed-line-length-",
 238     N_("Set the maximum line length") },
 239
 240 #endif