contrib/gcc/f/lang-options.h

   1 /* lang-options.h file for Fortran
   2    Copyright (C) 1995-1998 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 `lang_options' array in gcc.c for
  25    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 /* Use of FTNOPT makes tracking changes between FSF-g77 and egcs-g77
  33    easier, since FSF-gcc doesn't support doc strings.  */
  34 #define FTNOPT(opt,doc) { opt, doc },
  35
  36 FTNOPT( "-fversion", "Print g77-specific compiler version info, run internal tests" )
  37 FTNOPT( "-fnull-version", "" )
  38 /*"-fident",*/
  39 /*"-fno-ident",*/
  40 FTNOPT( "-ff66", "Program is written in typical FORTRAN 66 dialect" )
  41 FTNOPT( "-fno-f66", "" )
  42 FTNOPT( "-ff77", "Program is written in typical Unix f77 dialect" )
  43 FTNOPT( "-fno-f77", "Program does not use Unix-f77 dialectal features" )
  44 FTNOPT( "-ff90", "Program is written in Fortran-90-ish dialect" )
  45 FTNOPT( "-fno-f90", "" )
  46 FTNOPT( "-fautomatic", "" )
  47 FTNOPT( "-fno-automatic", "Treat local vars and COMMON blocks as if they were named in SAVE statements" )
  48 FTNOPT( "-fdollar-ok", "Allow $ in symbol names" )
  49 FTNOPT( "-fno-dollar-ok", "" )
  50 FTNOPT( "-ff2c", "" )
  51 FTNOPT( "-fno-f2c", "f2c-compatible code need not be generated" )
  52 FTNOPT( "-ff2c-library", "" )
  53 FTNOPT( "-fno-f2c-library", "Unsupported; do not generate libf2c-calling code" )
  54 FTNOPT( "-fflatten-arrays", "Unsupported; affects code-generation of arrays" )
  55 FTNOPT( "-fno-flatten-arrays", "" )
  56 FTNOPT( "-ffree-form", "Program is written in Fortran-90-ish free form" )
  57 FTNOPT( "-fno-free-form", "" )
  58 FTNOPT( "-ffixed-form", "" )
  59 FTNOPT( "-fno-fixed-form", "" )
  60 FTNOPT( "-fpedantic", "Warn about use of (only a few for now) Fortran extensions" )
  61 FTNOPT( "-fno-pedantic", "" )
  62 FTNOPT( "-fvxt", "Program is written in VXT (Digital-like) FORTRAN" )
  63 FTNOPT( "-fno-vxt", "" )
  64 FTNOPT( "-fno-ugly", "Disallow all ugly features" )
  65 FTNOPT( "-fugly-args", "" )
  66 FTNOPT( "-fno-ugly-args", "Hollerith and typeless constants not passed as arguments" )
  67 FTNOPT( "-fugly-assign", "Allow ordinary copying of ASSIGN'ed vars" )
  68 FTNOPT( "-fno-ugly-assign", "" )
  69 FTNOPT( "-fugly-assumed", "Dummy array dimensioned to (1) is assumed-size" )
  70 FTNOPT( "-fno-ugly-assumed", "" )
  71 FTNOPT( "-fugly-comma", "Trailing comma in procedure call denotes null argument" )
  72 FTNOPT( "-fno-ugly-comma", "" )
  73 FTNOPT( "-fugly-complex", "Allow REAL(Z) and AIMAG(Z) given DOUBLE COMPLEX Z" )
  74 FTNOPT( "-fno-ugly-complex", "" )
  75 FTNOPT( "-fugly-init", "" )
  76 FTNOPT( "-fno-ugly-init", "Initialization via DATA and PARAMETER is type-compatible" )
  77 FTNOPT( "-fugly-logint", "Allow INTEGER and LOGICAL interchangeability" )
  78 FTNOPT( "-fno-ugly-logint", "" )
  79 FTNOPT( "-fxyzzy", "Print internal debugging-related info" )
  80 FTNOPT( "-fno-xyzzy", "" )
  81 FTNOPT( "-finit-local-zero", "Initialize local vars and arrays to zero" )
  82 FTNOPT( "-fno-init-local-zero", "" )
  83 FTNOPT( "-fbackslash", "" )
  84 FTNOPT( "-fno-backslash", "Backslashes in character/hollerith constants not special (C-style)" )
  85 FTNOPT( "-femulate-complex", "Have front end emulate COMPLEX arithmetic to avoid bugs" )
  86 FTNOPT( "-fno-emulate-complex", "" )
  87 FTNOPT( "-funderscoring", "" )
  88 FTNOPT( "-fno-underscoring", "Disable the appending of underscores to externals" )
  89 FTNOPT( "-fsecond-underscore", "" )
  90 FTNOPT( "-fno-second-underscore", "Never append a second underscore to externals" )
  91 FTNOPT( "-fintrin-case-initcap", "Intrinsics spelled as e.g. SqRt" )
  92 FTNOPT( "-fintrin-case-upper", "Intrinsics in uppercase" )
  93 FTNOPT( "-fintrin-case-lower", "" )
  94 FTNOPT( "-fintrin-case-any", "Intrinsics letters in arbitrary cases" )
  95 FTNOPT( "-fmatch-case-initcap", "Language keywords spelled as e.g. IOStat" )
  96 FTNOPT( "-fmatch-case-upper", "Language keywords in uppercase" )
  97 FTNOPT( "-fmatch-case-lower", "" )
  98 FTNOPT( "-fmatch-case-any", "Language keyword letters in arbitrary cases" )
  99 FTNOPT( "-fsource-case-upper", "Internally convert most source to uppercase" )
 100 FTNOPT( "-fsource-case-lower", "" )
 101 FTNOPT( "-fsource-case-preserve", "Internally preserve source case" )
 102 FTNOPT( "-fsymbol-case-initcap", "Symbol names spelled in mixed case" )
 103 FTNOPT( "-fsymbol-case-upper", "Symbol names in uppercase" )
 104 FTNOPT( "-fsymbol-case-lower", "Symbol names in lowercase" )
 105 FTNOPT( "-fsymbol-case-any", "" )
 106 FTNOPT( "-fcase-strict-upper", "Program written in uppercase" )
 107 FTNOPT( "-fcase-strict-lower", "Program written in lowercase" )
 108 FTNOPT( "-fcase-initcap", "Program written in strict mixed-case" )
 109 FTNOPT( "-fcase-upper", "Compile as if program written in uppercase" )
 110 FTNOPT( "-fcase-lower", "Compile as if program written in lowercase" )
 111 FTNOPT( "-fcase-preserve", "Preserve all spelling (case) used in program" )
 112 FTNOPT( "-fbadu77-intrinsics-delete", "Delete libU77 intrinsics with bad interfaces" )
 113 FTNOPT( "-fbadu77-intrinsics-disable", "Disable libU77 intrinsics with bad interfaces" )
 114 FTNOPT( "-fbadu77-intrinsics-enable", "" )
 115 FTNOPT( "-fbadu77-intrinsics-hide", "Hide libU77 intrinsics with bad interfaces" )
 116 FTNOPT( "-ff2c-intrinsics-delete", "Delete non-FORTRAN-77 intrinsics f2c supports" )
 117 FTNOPT( "-ff2c-intrinsics-disable", "Disable non-FORTRAN-77 intrinsics f2c supports" )
 118 FTNOPT( "-ff2c-intrinsics-enable", "" )
 119 FTNOPT( "-ff2c-intrinsics-hide", "Hide non-FORTRAN-77 intrinsics f2c supports" )
 120 FTNOPT( "-ff90-intrinsics-delete", "Delete non-FORTRAN-77 intrinsics F90 supports" )
 121 FTNOPT( "-ff90-intrinsics-disable", "Disable non-FORTRAN-77 intrinsics F90 supports" )
 122 FTNOPT( "-ff90-intrinsics-enable", "" )
 123 FTNOPT( "-ff90-intrinsics-hide", "Hide non-FORTRAN-77 intrinsics F90 supports" )
 124 FTNOPT( "-fgnu-intrinsics-delete", "Delete non-FORTRAN-77 intrinsics g77 supports" )
 125 FTNOPT( "-fgnu-intrinsics-disable", "Disable non-FORTRAN 77 intrinsics F90 supports" )
 126 FTNOPT( "-fgnu-intrinsics-enable", "" )
 127 FTNOPT( "-fgnu-intrinsics-hide", "Hide non-FORTRAN 77 intrinsics F90 supports" )
 128 FTNOPT( "-fmil-intrinsics-delete", "Delete MIL-STD 1753 intrinsics" )
 129 FTNOPT( "-fmil-intrinsics-disable", "Disable MIL-STD 1753 intrinsics" )
 130 FTNOPT( "-fmil-intrinsics-enable", "" )
 131 FTNOPT( "-fmil-intrinsics-hide", "Hide MIL-STD 1753 intrinsics" )
 132 FTNOPT( "-funix-intrinsics-delete", "Delete libU77 intrinsics" )
 133 FTNOPT( "-funix-intrinsics-disable", "Disable libU77 intrinsics" )
 134 FTNOPT( "-funix-intrinsics-enable", "" )
 135 FTNOPT( "-funix-intrinsics-hide", "Hide libU77 intrinsics" )
 136 FTNOPT( "-fvxt-intrinsics-delete", "Delete non-FORTRAN-77 intrinsics VXT FORTRAN supports" )
 137 FTNOPT( "-fvxt-intrinsics-disable", "Disable non-FORTRAN-77 intrinsics VXT FORTRAN supports" )
 138 FTNOPT( "-fvxt-intrinsics-enable", "" )
 139 FTNOPT( "-fvxt-intrinsics-hide", "Hide non-FORTRAN-77 intrinsics VXT FORTRAN supports" )
 140 FTNOPT( "-fzeros", "Treat initial values of 0 like non-zero values" )
 141 FTNOPT( "-fno-zeros", "" )
 142 FTNOPT( "-fdebug-kludge", "Emit special debugging information for COMMON and EQUIVALENCE" )
 143 FTNOPT( "-fno-debug-kludge", "" )
 144 FTNOPT( "-fonetrip", "Take at least one trip through each iterative DO loop" )
 145 FTNOPT( "-fno-onetrip", "" )
 146 FTNOPT( "-fsilent", "" )
 147 FTNOPT( "-fno-silent", "Print names of program units as they are compiled" )
 148 FTNOPT( "-fglobals", "" )
 149 FTNOPT( "-fno-globals", "Disable fatal diagnostics about inter-procedural problems" )
 150 FTNOPT( "-ftypeless-boz", "Make prefix-radix non-decimal constants be typeless" )
 151 FTNOPT( "-fno-typeless-boz", "" )
 152 FTNOPT( "-fbounds-check", "Generate code to check subscript and substring bounds" )
 153 FTNOPT( "-fno-bounds-check", "" )
 154 FTNOPT( "-ffortran-bounds-check", "Fortran-specific form of -fbounds-check")
 155 FTNOPT( "-fno-fortran-bounds-check", "" )
 156 FTNOPT( "-Wglobals", "" )
 157 FTNOPT( "-Wno-globals", "Disable warnings about inter-procedural problems" )
 158 /*"-Wimplicit",*/
 159 /*"-Wno-implicit",*/
 160 FTNOPT( "-Wsurprising", "Warn about constructs with surprising meanings" )
 161 FTNOPT( "-Wno-surprising", "" )
 162 /*"-Wall",*/
 163 /* Prefix options.  */
 164 FTNOPT( "-I", "Add a directory for INCLUDE searching" )
 165 FTNOPT( "-ffixed-line-length-", "Set the maximum line length" )
 166
 167 #undef FTNOPT
 168
 169 #endif