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