1/* bad.def -- Public #include File (module.h template V1.0) 2 Copyright (C) 1995, 1996, 1997, 2002 Free Software Foundation, Inc. 3 Contributed by James Craig Burley. 4 5This file is part of GNU Fortran. 6 7GNU Fortran is free software; you can redistribute it and/or modify 8it under the terms of the GNU General Public License as published by 9the Free Software Foundation; either version 2, or (at your option) 10any later version. 11 12GNU Fortran is distributed in the hope that it will be useful, 13but WITHOUT ANY WARRANTY; without even the implied warranty of 14MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 15GNU General Public License for more details. 16 17You should have received a copy of the GNU General Public License 18along with GNU Fortran; see the file COPYING. If not, write to 19the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 2002111-1307, USA. 21 22 Owning Modules: 23 bad.c 24 25 Modifications: 26*/ 27 28#define INFORM FFEBAD_severityINFORMATIONAL 29#define TRIVIAL FFEBAD_severityTRIVIAL 30#define WARN FFEBAD_severityWARNING 31#define PECULIAR FFEBAD_severityPECULIAR 32#define FATAL FFEBAD_severityFATAL 33#define WEIRD FFEBAD_severityWEIRD 34#define SEVERE FFEBAD_severitySEVERE 35#define DISASTER FFEBAD_severityDISASTER 36 37FFEBAD_MSG (FFEBAD_MISSING_FIRST_BINARY_OPERAND, FATAL, 38/* xgettext:no-c-format */ 39"Missing first operand for binary operator at %0") 40FFEBAD_MSG (FFEBAD_NULL_CHAR_CONST, WARN, 41/* xgettext:no-c-format */ 42"Zero-length character constant at %0") 43FFEBAD_MSG (FFEBAD_INVALID_TOKEN_IN_EXPRESSION, FATAL, 44/* xgettext:no-c-format */ 45"Invalid token at %0 in expression or subexpression at %1") 46FFEBAD_MSG (FFEBAD_MISSING_OPERAND_FOR_OPERATOR, FATAL, 47/* xgettext:no-c-format */ 48"Missing operand for operator at %1 at end of expression at %0") 49FFEBAD_MSG (FFEBAD_LABEL_ALREADY_DEFINED, FATAL, 50/* xgettext:no-c-format */ 51"Label %A already defined at %1 when redefined at %0") 52FFEBAD_MSG (FFEBAD_UNRECOGNIZED_CHARACTER, FATAL, 53/* xgettext:no-c-format */ 54"Unrecognized character at %0 [info -f g77 M LEX]") 55FFEBAD_MSG (FFEBAD_LABEL_WITHOUT_STMT, WARN, 56/* xgettext:no-c-format */ 57"Label definition %A at %0 on empty statement (as of %1)") 58FFEBAD_MSG (FFEBAD_EXTRA_LABEL_DEF, FATAL, 59/* xgettext:no-c-format */ 60LONG("Extra label definition %A at %0 -- perhaps previous label definition %B at %1 should have CONTINUE statement?") 61/* xgettext:no-c-format */ 62SHORT("Extra label definition %A at %0 following label definition %B at %1")) 63FFEBAD_MSG (FFEBAD_FIRST_CHAR_INVALID, FATAL, 64/* xgettext:no-c-format */ 65"Invalid first character at %0 [info -f g77 M LEX]") 66FFEBAD_MSG (FFEBAD_LINE_TOO_LONG, FATAL, 67/* xgettext:no-c-format */ 68"Line too long as of %0 [info -f g77 M LEX]") 69FFEBAD_MSG (FFEBAD_LABEL_FIELD_NOT_NUMERIC, FATAL, 70/* xgettext:no-c-format */ 71"Non-numeric character at %0 in label field [info -f g77 M LEX]") 72FFEBAD_MSG (FFEBAD_LABEL_NUMBER_INVALID, FATAL, 73/* xgettext:no-c-format */ 74"Label number at %0 not in range 1-99999") 75FFEBAD_MSG (FFEBAD_NON_ANSI_COMMENT, WARN, 76/* xgettext:no-c-format */ 77"At %0, '!' and '/*' are not valid comment delimiters") 78FFEBAD_MSG (FFEBAD_NON_ANSI_CONTINUATION_COLUMN, WARN, 79/* xgettext:no-c-format */ 80"Continuation indicator at %0 must appear in column 6 [info -f g77 M LEX]") 81FFEBAD_MSG (FFEBAD_LABEL_ON_CONTINUATION, FATAL, 82/* xgettext:no-c-format */ 83"Label at %0 invalid with continuation line indicator at %1 [info -f g77 M LEX]") 84FFEBAD_MSG (FFEBAD_INVALID_CONTINUATION, FATAL, 85/* xgettext:no-c-format */ 86LONG("Continuation indicator at %0 invalid on first non-comment line of file or following END or INCLUDE [info -f g77 M LEX]") 87/* xgettext:no-c-format */ 88SHORT("Continuation indicator at %0 invalid here [info -f g77 M LEX]")) 89FFEBAD_MSG (FFEBAD_NO_CLOSING_APOSTROPHE, FATAL, 90/* xgettext:no-c-format */ 91"Character constant at %0 has no closing apostrophe at %1") 92FFEBAD_MSG (FFEBAD_NOT_ENOUGH_HOLLERITH_CHARS, FATAL, 93/* xgettext:no-c-format */ 94"Hollerith constant at %0 specified %A more characters than are present as of %1") 95FFEBAD_MSG (FFEBAD_MISSING_CLOSE_PAREN, FATAL, 96/* xgettext:no-c-format */ 97"Missing close parenthese at %0 needed to match open parenthese at %1") 98FFEBAD_MSG (FFEBAD_INTEGER_TOO_LARGE, FATAL, 99/* xgettext:no-c-format */ 100"Integer at %0 too large") 101FFEBAD_MSG (FFEBAD_BAD_MAGICAL, WARN, 102/* xgettext:no-c-format */ 103LONG("Integer at %0 too large except as negative number (preceded by unary minus sign)") 104/* xgettext:no-c-format */ 105SHORT("Non-negative integer at %0 too large")) 106FFEBAD_MSG (FFEBAD_BAD_MAGICAL_PRECEDENCE, WARN, 107/* xgettext:no-c-format */ 108LONG("Integer at %0 too large; even though preceded by unary minus sign at %1, subsequent operator at %2 has precedence over unary minus -- enclose unary minus sign and integer in parentheses to force precedence") 109/* xgettext:no-c-format */ 110SHORT("Integer at %0 too large (%2 has precedence over %1)")) 111FFEBAD_MSG (FFEBAD_BAD_MAGICAL_BINARY, WARN, 112/* xgettext:no-c-format */ 113LONG("Integer at %0 too large; even though preceded by minus sign at %1, because minus sign is a binary, not unary, operator -- insert plus sign before minus sign to change it to a unary minus sign") 114/* xgettext:no-c-format */ 115SHORT("Integer at %0 too large (needs unary, not binary, minus at %1)")) 116FFEBAD_MSG (FFEBAD_BAD_MAGICAL_PRECEDENCE_BINARY, WARN, 117/* xgettext:no-c-format */ 118LONG("Integer at %0 too large; even though preceded by minus sign at %1, subsequent operator at %2 has precedence over minus, and that minus sign should be a unary minus rather than a binary minus -- insert plus sign before minus sign to change it to a unary minus sign, and enclose unary minus sign and integer in parentheses to force precedence") 119/* xgettext:no-c-format */ 120SHORT("Integer at %0 too large (%2 has precedence over %1, which needs to be unary, not binary, minus)")) 121FFEBAD_MSG (FFEBAD_IGNORING_PERIOD, FATAL, 122/* xgettext:no-c-format */ 123"Period at %0 not followed by digits for floating-point number or by `NOT.', `TRUE.', or `FALSE.'") 124FFEBAD_MSG (FFEBAD_INSERTING_PERIOD, FATAL, 125/* xgettext:no-c-format */ 126"Missing close-period between `.%A' at %0 and %1") 127FFEBAD_MSG (FFEBAD_INVALID_EXPONENT, FATAL, 128/* xgettext:no-c-format */ 129"Invalid exponent at %0 for real constant at %1; nondigit `%A' in exponent field") 130FFEBAD_MSG (FFEBAD_MISSING_EXPONENT_VALUE, FATAL, 131/* xgettext:no-c-format */ 132"Missing value at %1 for real-number exponent at %0") 133FFEBAD_MSG (FFEBAD_MISSING_BINARY_OPERATOR, FATAL, 134/* xgettext:no-c-format */ 135"Expected binary operator between expressions at %0 and at %1") 136FFEBAD_MSG (FFEBAD_INVALID_DOTDOT, FATAL, 137/* xgettext:no-c-format */ 138LONG("Period at %0 not followed by valid keyword forming a valid binary operator; `.%A.' is not a valid binary operator") 139/* xgettext:no-c-format */ 140SHORT("`.%A.' at %0 not a binary operator")) 141FFEBAD_MSG (FFEBAD_QUOTE_MISSES_DIGITS, FATAL, 142/* xgettext:no-c-format */ 143LONG("Double-quote at %0 not followed by a string of valid octal digits at %1") 144/* xgettext:no-c-format */ 145SHORT("Invalid octal constant at %0")) 146FFEBAD_MSG (FFEBAD_INVALID_BINARY_DIGIT, FATAL, 147/* xgettext:no-c-format */ 148LONG("Invalid binary digit(s) found in string of digits at %0") 149/* xgettext:no-c-format */ 150SHORT("Invalid binary constant at %0")) 151FFEBAD_MSG (FFEBAD_INVALID_HEX_DIGIT, FATAL, 152/* xgettext:no-c-format */ 153LONG("Invalid hexadecimal digit(s) found in string of digits at %0") 154/* xgettext:no-c-format */ 155SHORT("Invalid hexadecimal constant at %0")) 156FFEBAD_MSG (FFEBAD_INVALID_OCTAL_DIGIT, FATAL, 157/* xgettext:no-c-format */ 158LONG("Invalid octal digit(s) found in string of digits at %0") 159/* xgettext:no-c-format */ 160SHORT("Invalid octal constant at %0")) 161FFEBAD_MSG (FFEBAD_INVALID_RADIX_SPECIFIER, FATAL, 162/* xgettext:no-c-format */ 163LONG("Invalid radix specifier `%A' at %0 for typeless constant at %1") 164/* xgettext:no-c-format */ 165SHORT("Invalid typeless constant at %1")) 166FFEBAD_MSG (FFEBAD_INVALID_TYPELESS_BINARY_DIGIT, FATAL, 167/* xgettext:no-c-format */ 168LONG("Invalid binary digit(s) found in string of digits at %0") 169/* xgettext:no-c-format */ 170SHORT("Invalid binary constant at %0")) 171FFEBAD_MSG (FFEBAD_INVALID_TYPELESS_OCTAL_DIGIT, FATAL, 172/* xgettext:no-c-format */ 173LONG("Invalid octal digit(s) found in string of digits at %0") 174/* xgettext:no-c-format */ 175SHORT("Invalid octal constant at %0")) 176FFEBAD_MSG (FFEBAD_INVALID_TYPELESS_HEX_DIGIT, FATAL, 177/* xgettext:no-c-format */ 178LONG("Invalid hexadecimal digit(s) found in string of digits at %0") 179/* xgettext:no-c-format */ 180SHORT("Invalid hexadecimal constant at %0")) 181FFEBAD_MSG (FFEBAD_INVALID_COMPLEX_PART, FATAL, 182/* xgettext:no-c-format */ 183LONG("%A part of complex constant at %0 must be a real or integer constant -- otherwise use CMPLX() or COMPLEX() in place of ()") 184/* xgettext:no-c-format */ 185SHORT("%A part of complex constant at %0 not a real or integer constant")) 186FFEBAD_MSG (FFEBAD_INVALID_PERCENT, FATAL, 187/* xgettext:no-c-format */ 188LONG("Invalid keyword `%%%A' at %0 in this context") 189/* xgettext:no-c-format */ 190SHORT("Invalid keyword `%%%A' at %0")) 191FFEBAD_MSG (FFEBAD_NULL_EXPRESSION, FATAL, 192/* xgettext:no-c-format */ 193LONG("Null expression between %0 and %1 invalid in this context") 194/* xgettext:no-c-format */ 195SHORT("Invalid null expression between %0 and %1")) 196FFEBAD_MSG (FFEBAD_CONCAT_ARGS_TYPE, FATAL, 197/* xgettext:no-c-format */ 198LONG("Concatenation operator at %0 must operate on two subexpressions of character type, but neither subexpression at %1 or %2 is of character type") 199/* xgettext:no-c-format */ 200SHORT("Invalid operands at %1 and %2 for concatenation operator at %0")) 201FFEBAD_MSG (FFEBAD_CONCAT_ARG_TYPE, FATAL, 202/* xgettext:no-c-format */ 203LONG("Concatenation operator at %0 must operate on two subexpressions of character type, but the subexpression at %1 is not of character type") 204/* xgettext:no-c-format */ 205SHORT("Invalid operand at %1 for concatenation operator at %0")) 206FFEBAD_MSG (FFEBAD_CONCAT_ARG_KIND, FATAL, 207/* xgettext:no-c-format */ 208LONG("Concatenation operator at %0 must operate on two scalar (not array) subexpressions, two function invocations returning character scalars, or a combination of both -- but the subexpression at %1 is %A") 209/* xgettext:no-c-format */ 210SHORT("Invalid operand (is %A) at %1 for concatenation operator at %0")) 211FFEBAD_MSG (FFEBAD_MATH_ARGS_TYPE, FATAL, 212/* xgettext:no-c-format */ 213LONG("Arithmetic operator at %0 must operate on two subexpressions of arithmetic type, but neither subexpression at %1 or %2 is of arithmetic type") 214/* xgettext:no-c-format */ 215SHORT("Invalid operands at %1 and %2 for arithmetic operator at %0")) 216FFEBAD_MSG (FFEBAD_MATH_ARG_TYPE, FATAL, 217/* xgettext:no-c-format */ 218LONG("Arithmetic operator at %0 must operate on two subexpressions of arithmetic type, but the subexpression at %1 is not of arithmetic type") 219/* xgettext:no-c-format */ 220SHORT("Invalid operand at %1 for arithmetic operator at %0")) 221FFEBAD_MSG (FFEBAD_MATH_ARG_KIND, FATAL, 222/* xgettext:no-c-format */ 223LONG("Arithmetic operator at %0 must operate on two scalar (not array) subexpressions, two function invocations returning arithmetic scalars, or a combination of both -- but the subexpression at %1 is %A") 224/* xgettext:no-c-format */ 225SHORT("Invalid operand (is %A) at %1 for arithmetic operator at %0")) 226FFEBAD_MSG (FFEBAD_NO_CLOSING_QUOTE, FATAL, 227/* xgettext:no-c-format */ 228LONG("Character constant at %0 has no closing quote at %1 [info -f g77 M LEX]") 229/* xgettext:no-c-format */ 230SHORT("Unterminated character constant at %0 [info -f g77 M LEX]")) 231FFEBAD_MSG (FFEBAD_BAD_CHAR_CONTINUE, FATAL, 232/* xgettext:no-c-format */ 233LONG("Continuation line at %0 must have initial `&' since it continues a character context [info -f g77 M LEX]") 234/* xgettext:no-c-format */ 235SHORT("Missing initial `&' on continuation line at %0 [info -f g77 M LEX]")) 236FFEBAD_MSG (FFEBAD_BAD_LEXTOK_CONTINUE, FATAL, 237/* xgettext:no-c-format */ 238LONG("Continuation line at %0 must have initial `&' since it continues a split lexical token [info -f g77 M LEX]") 239/* xgettext:no-c-format */ 240SHORT("Missing initial `&' on continuation line at %0 [info -f g77 M LEX]")) 241FFEBAD_MSG (FFEBAD_BAD_FREE_CONTINUE, FATAL, 242/* xgettext:no-c-format */ 243LONG("Continuation line at %0 invalid because it consists only of a single `&' as the only nonblank character") 244/* xgettext:no-c-format */ 245SHORT("Invalid continuation line at %0")) 246FFEBAD_MSG (FFEBAD_STMT_BEGINS_BAD, FATAL, 247/* xgettext:no-c-format */ 248LONG("Statement at %0 begins with invalid token [info -f g77 M LEX]") 249/* xgettext:no-c-format */ 250SHORT("Invalid statement at %0 [info -f g77 M LEX]")) 251FFEBAD_MSG (FFEBAD_SEMICOLON, FATAL, 252/* xgettext:no-c-format */ 253"Semicolon at %0 is an invalid token") 254FFEBAD_MSG (FFEBAD_UNREC_STMT, FATAL, 255/* xgettext:no-c-format */ 256LONG("Unrecognized statement name at %0 and invalid form for assignment or statement-function definition at %1") 257/* xgettext:no-c-format */ 258SHORT("Invalid statement at %0")) 259FFEBAD_MSG (FFEBAD_INVALID_STMT_FORM, FATAL, 260/* xgettext:no-c-format */ 261LONG("Invalid form for %A statement at %0") 262/* xgettext:no-c-format */ 263SHORT("Invalid %A statement at %0")) 264FFEBAD_MSG (FFEBAD_INVALID_HOLL_IN_STMT, FATAL, 265/* xgettext:no-c-format */ 266LONG("Invalid use of hollerith constant in statement at %0 -- enclose the constant in parentheses (for example, change BACKSPACE 2HAB to BACKSPACE (2HAB))") 267/* xgettext:no-c-format */ 268SHORT("Enclose hollerith constant in statement at %0 in parentheses")) 269FFEBAD_MSG (FFEBAD_FORMAT_EXTRA_COMMA, FATAL, 270/* xgettext:no-c-format */ 271"Extraneous comma in FORMAT statement at %0") 272FFEBAD_MSG (FFEBAD_FORMAT_MISSING_COMMA, WARN, 273/* xgettext:no-c-format */ 274"Missing comma in FORMAT statement at %0") 275FFEBAD_MSG (FFEBAD_FORMAT_SPURIOUS_SIGN, FATAL, 276/* xgettext:no-c-format */ 277"Spurious sign in FORMAT statement at %0") 278FFEBAD_MSG (FFEBAD_FORMAT_SPURIOUS_NUMBER, FATAL, 279/* xgettext:no-c-format */ 280"Spurious number in FORMAT statement at %0") 281FFEBAD_MSG (FFEBAD_FORMAT_TEXT_IN_NUMBER, FATAL, 282/* xgettext:no-c-format */ 283"Spurious text trailing number in FORMAT statement at %0") 284FFEBAD_MSG (FFEBAD_FORMAT_P_NOCOMMA, FATAL, 285/* xgettext:no-c-format */ 286LONG("nP control edit descriptor not followed by comma but followed by edit descriptor at %0 other than D, E, EN, F, or G") 287/* xgettext:no-c-format */ 288SHORT("Invalid edit descriptor at %0 following nP control edit descriptor")) 289FFEBAD_MSG (FFEBAD_FORMAT_BAD_SPEC, FATAL, 290/* xgettext:no-c-format */ 291"Unrecognized FORMAT specifier at %0") 292FFEBAD_MSG (FFEBAD_FORMAT_BAD_I_SPEC, FATAL, 293/* xgettext:no-c-format */ 294LONG("Invalid I specifier in FORMAT statement at %0 -- correct form: [r]Iw.[m]") 295/* xgettext:no-c-format */ 296SHORT("Invalid I specifier in FORMAT statement at %0")) 297FFEBAD_MSG (FFEBAD_FORMAT_BAD_B_SPEC, FATAL, 298/* xgettext:no-c-format */ 299LONG("Invalid B specifier in FORMAT statement at %0 -- correct form: [r]Bw.[m]") 300/* xgettext:no-c-format */ 301SHORT("Invalid B specifier in FORMAT statement at %0")) 302FFEBAD_MSG (FFEBAD_FORMAT_BAD_O_SPEC, FATAL, 303/* xgettext:no-c-format */ 304LONG("Invalid O specifier in FORMAT statement at %0 -- correct form: [r]Ow.[m]") 305/* xgettext:no-c-format */ 306SHORT("Invalid O specifier in FORMAT statement at %0")) 307FFEBAD_MSG (FFEBAD_FORMAT_BAD_Z_SPEC, FATAL, 308/* xgettext:no-c-format */ 309LONG("Invalid Z specifier in FORMAT statement at %0 -- correct form: [r]Zw.[m]") 310/* xgettext:no-c-format */ 311SHORT("Invalid Z specifier in FORMAT statement at %0")) 312FFEBAD_MSG (FFEBAD_FORMAT_BAD_F_SPEC, FATAL, 313/* xgettext:no-c-format */ 314LONG("Invalid F specifier in FORMAT statement at %0 -- correct form: [r]Fw.d") 315/* xgettext:no-c-format */ 316SHORT("Invalid F specifier in FORMAT statement at %0")) 317FFEBAD_MSG (FFEBAD_FORMAT_BAD_E_SPEC, FATAL, 318/* xgettext:no-c-format */ 319LONG("Invalid E specifier in FORMAT statement at %0 -- correct form: [r]Ew.d[Ee]") 320/* xgettext:no-c-format */ 321SHORT("Invalid E specifier in FORMAT statement at %0")) 322FFEBAD_MSG (FFEBAD_FORMAT_BAD_EN_SPEC, FATAL, 323/* xgettext:no-c-format */ 324LONG("Invalid EN specifier in FORMAT statement at %0 -- correct form: [r]ENw.d[Ee]") 325/* xgettext:no-c-format */ 326SHORT("Invalid EN specifier in FORMAT statement at %0")) 327FFEBAD_MSG (FFEBAD_FORMAT_BAD_G_SPEC, FATAL, 328/* xgettext:no-c-format */ 329LONG("Invalid G specifier in FORMAT statement at %0 -- correct form: [r]Gw.d[Ee]") 330/* xgettext:no-c-format */ 331SHORT("Invalid G specifier in FORMAT statement at %0")) 332FFEBAD_MSG (FFEBAD_FORMAT_BAD_L_SPEC, FATAL, 333/* xgettext:no-c-format */ 334LONG("Invalid L specifier in FORMAT statement at %0 -- correct form: [r]Lw") 335/* xgettext:no-c-format */ 336SHORT("Invalid L specifier in FORMAT statement at %0")) 337FFEBAD_MSG (FFEBAD_FORMAT_BAD_A_SPEC, FATAL, 338/* xgettext:no-c-format */ 339LONG("Invalid A specifier in FORMAT statement at %0 -- correct form: [r]A[w]") 340/* xgettext:no-c-format */ 341SHORT("Invalid A specifier in FORMAT statement at %0")) 342FFEBAD_MSG (FFEBAD_FORMAT_BAD_D_SPEC, FATAL, 343/* xgettext:no-c-format */ 344LONG("Invalid D specifier in FORMAT statement at %0 -- correct form: [r]Dw.d") 345/* xgettext:no-c-format */ 346SHORT("Invalid D specifier in FORMAT statement at %0")) 347FFEBAD_MSG (FFEBAD_FORMAT_BAD_Q_SPEC, FATAL, 348/* xgettext:no-c-format */ 349LONG("Invalid Q specifier in FORMAT statement at %0 -- correct form: Q") 350/* xgettext:no-c-format */ 351SHORT("Invalid Q specifier in FORMAT statement at %0")) 352FFEBAD_MSG (FFEBAD_FORMAT_BAD_DOLLAR_SPEC, FATAL, 353/* xgettext:no-c-format */ 354LONG("Invalid $ specifier in FORMAT statement at %0 -- correct form: $") 355/* xgettext:no-c-format */ 356SHORT("Invalid $ specifier in FORMAT statement at %0")) 357FFEBAD_MSG (FFEBAD_FORMAT_BAD_P_SPEC, FATAL, 358/* xgettext:no-c-format */ 359LONG("Invalid P specifier in FORMAT statement at %0 -- correct form: kP") 360/* xgettext:no-c-format */ 361SHORT("Invalid P specifier in FORMAT statement at %0")) 362FFEBAD_MSG (FFEBAD_FORMAT_BAD_T_SPEC, FATAL, 363/* xgettext:no-c-format */ 364LONG("Invalid T specifier in FORMAT statement at %0 -- correct form: Tn") 365/* xgettext:no-c-format */ 366SHORT("Invalid T specifier in FORMAT statement at %0")) 367FFEBAD_MSG (FFEBAD_FORMAT_BAD_TL_SPEC, FATAL, 368/* xgettext:no-c-format */ 369LONG("Invalid TL specifier in FORMAT statement at %0 -- correct form: TLn") 370/* xgettext:no-c-format */ 371SHORT("Invalid TL specifier in FORMAT statement at %0")) 372FFEBAD_MSG (FFEBAD_FORMAT_BAD_TR_SPEC, FATAL, 373/* xgettext:no-c-format */ 374LONG("Invalid TR specifier in FORMAT statement at %0 -- correct form: TRn") 375/* xgettext:no-c-format */ 376SHORT("Invalid TR specifier in FORMAT statement at %0")) 377FFEBAD_MSG (FFEBAD_FORMAT_BAD_X_SPEC, FATAL, 378/* xgettext:no-c-format */ 379LONG("Invalid X specifier in FORMAT statement at %0 -- correct form: nX") 380/* xgettext:no-c-format */ 381SHORT("Invalid X specifier in FORMAT statement at %0")) 382FFEBAD_MSG (FFEBAD_FORMAT_BAD_S_SPEC, FATAL, 383/* xgettext:no-c-format */ 384LONG("Invalid S specifier in FORMAT statement at %0 -- correct form: S") 385/* xgettext:no-c-format */ 386SHORT("Invalid S specifier in FORMAT statement at %0")) 387FFEBAD_MSG (FFEBAD_FORMAT_BAD_SP_SPEC, FATAL, 388/* xgettext:no-c-format */ 389LONG("Invalid SP specifier in FORMAT statement at %0 -- correct form: SP") 390/* xgettext:no-c-format */ 391SHORT("Invalid SP specifier in FORMAT statement at %0")) 392FFEBAD_MSG (FFEBAD_FORMAT_BAD_SS_SPEC, FATAL, 393/* xgettext:no-c-format */ 394LONG("Invalid SS specifier in FORMAT statement at %0 -- correct form: SS") 395/* xgettext:no-c-format */ 396SHORT("Invalid SS specifier in FORMAT statement at %0")) 397FFEBAD_MSG (FFEBAD_FORMAT_BAD_BN_SPEC, FATAL, 398/* xgettext:no-c-format */ 399LONG("Invalid BN specifier in FORMAT statement at %0 -- correct form: BN") 400/* xgettext:no-c-format */ 401SHORT("Invalid BN specifier in FORMAT statement at %0")) 402FFEBAD_MSG (FFEBAD_FORMAT_BAD_BZ_SPEC, FATAL, 403/* xgettext:no-c-format */ 404LONG("Invalid BZ specifier in FORMAT statement at %0 -- correct form: BZ") 405/* xgettext:no-c-format */ 406SHORT("Invalid BZ specifier in FORMAT statement at %0")) 407FFEBAD_MSG (FFEBAD_FORMAT_BAD_COLON_SPEC, FATAL, 408/* xgettext:no-c-format */ 409LONG("Invalid : specifier in FORMAT statement at %0 -- correct form: :") 410/* xgettext:no-c-format */ 411SHORT("Invalid : specifier in FORMAT statement at %0")) 412FFEBAD_MSG (FFEBAD_FORMAT_BAD_H_SPEC, FATAL, 413/* xgettext:no-c-format */ 414LONG("Invalid H specifier in FORMAT statement at %0 -- correct form: nHcharacters !where n is an unsigned decimal constant, and characters !contains exactly n characters (including spaces)") 415/* xgettext:no-c-format */ 416SHORT("Invalid H specifier in FORMAT statement at %0")) 417FFEBAD_MSG (FFEBAD_FORMAT_MISSING_PAREN, FATAL, 418/* xgettext:no-c-format */ 419"Missing close-parenthese(s) in FORMAT statement at %0") 420FFEBAD_MSG (FFEBAD_FORMAT_MISSING_DOT, FATAL, 421/* xgettext:no-c-format */ 422"Missing number following period in FORMAT statement at %0") 423FFEBAD_MSG (FFEBAD_FORMAT_MISSING_EXP, FATAL, 424/* xgettext:no-c-format */ 425"Missing number following `E' in FORMAT statement at %0") 426FFEBAD_MSG (FFEBAD_FORMAT_EXPR_TOKEN, FATAL, 427/* xgettext:no-c-format */ 428LONG("Invalid token with FORMAT run-time expression at %0 -- use the traditional operators .LT., .LE., .GT., .GE., .EQ., and .NE. in place of the newer tokens <, <=, >, >=, ==, and !=, because > ends an expression within a FORMAT statement") 429/* xgettext:no-c-format */ 430SHORT("Invalid token with FORMAT run-time expression at %0")) 431FFEBAD_MSG (FFEBAD_TRAILING_COMMA, WARN, 432/* xgettext:no-c-format */ 433"Spurious trailing comma preceding terminator at %0") 434FFEBAD_MSG (FFEBAD_INTERFACE_ASSIGNMENT, WARN, 435/* xgettext:no-c-format */ 436"At %0, specify OPERATOR instead of ASSIGNMENT for INTERFACE statement not specifying the assignment operator (=)") 437FFEBAD_MSG (FFEBAD_INTERFACE_OPERATOR, WARN, 438/* xgettext:no-c-format */ 439"At %0, specify ASSIGNMENT instead of OPERATOR for INTERFACE statement specifying the assignment operator (=)") 440FFEBAD_MSG (FFEBAD_INTERFACE_NONLETTER, FATAL, 441/* xgettext:no-c-format */ 442LONG("Defined operator at %0 contains a nonletter -- must contain only letters A-Z (or a-z)") 443/* xgettext:no-c-format */ 444SHORT("Nonletter in defined operator at %0")) 445FFEBAD_MSG (FFEBAD_INVALID_TYPEDECL_ATTR, FATAL, 446/* xgettext:no-c-format */ 447LONG("Invalid type-declaration attribute at %0 -- must be one of: DIMENSION(array-spec), EXTERNAL, INTRINSIC, PARAMETER, or SAVE") 448/* xgettext:no-c-format */ 449SHORT("Invalid type-declaration attribute at %0")) 450FFEBAD_MSG (FFEBAD_INVALID_TYPEDECL_INIT, FATAL, 451/* xgettext:no-c-format */ 452"Cannot specify =initialization-expr at %0 unless `::' appears before list of objects") 453FFEBAD_MSG (FFEBAD_LABEL_USE_DEF, FATAL, 454/* xgettext:no-c-format */ 455"Reference to label at %1 inconsistent with its definition at %0") 456FFEBAD_MSG (FFEBAD_LABEL_USE_USE, FATAL, 457/* xgettext:no-c-format */ 458"Reference to label at %1 inconsistent with earlier reference at %0") 459FFEBAD_MSG (FFEBAD_LABEL_DEF_DO, FATAL, 460/* xgettext:no-c-format */ 461"DO-statement reference to label at %1 follows its definition at %0") 462FFEBAD_MSG (FFEBAD_LABEL_BLOCK, WARN, 463/* xgettext:no-c-format */ 464"Reference to label at %1 is outside block containing definition at %0") 465FFEBAD_MSG (FFEBAD_LABEL_DO_BLOCK_DO, FATAL, 466/* xgettext:no-c-format */ 467"DO-statement references to label at %0 and %2 separated by unterminated block starting at %1") 468FFEBAD_MSG (FFEBAD_LABEL_DO_BLOCK_END, FATAL, 469/* xgettext:no-c-format */ 470"DO-statement reference to label at %0 and label definition at %2 separated by unterminated block starting at %1") 471FFEBAD_MSG (FFEBAD_INVALID_LABEL_DEF, FATAL, 472/* xgettext:no-c-format */ 473"Label definition at %0 invalid on this kind of statement") 474FFEBAD_MSG (FFEBAD_ORDER_1, FATAL, 475/* xgettext:no-c-format */ 476"Statement at %0 invalid in this context") 477FFEBAD_MSG (FFEBAD_ORDER_2, FATAL, 478/* xgettext:no-c-format */ 479"Statement at %0 invalid in context established by statement at %1") 480FFEBAD_MSG (FFEBAD_CONSTRUCT_NAMED, FATAL, 481/* xgettext:no-c-format */ 482"Statement at %0 must specify construct name specified at %1") 483FFEBAD_MSG (FFEBAD_CONSTRUCT_NOT_NAMED, FATAL, 484/* xgettext:no-c-format */ 485"Construct name at %0 superfluous, no construct name specified at %1") 486FFEBAD_MSG (FFEBAD_CONSTRUCT_WRONG_NAME, FATAL, 487/* xgettext:no-c-format */ 488"Construct name at %0 not the same as construct name at %1") 489FFEBAD_MSG (FFEBAD_CONSTRUCT_NO_DO_NAME, FATAL, 490/* xgettext:no-c-format */ 491"Construct name at %0 does not match construct name for any containing DO constructs") 492FFEBAD_MSG (FFEBAD_DO_HAD_LABEL, FATAL, 493/* xgettext:no-c-format */ 494"Label definition missing at %0 for DO construct specifying label at %1") 495FFEBAD_MSG (FFEBAD_AFTER_ELSE, FATAL, 496/* xgettext:no-c-format */ 497"Statement at %0 follows ELSE block for IF construct at %1") 498FFEBAD_MSG (FFEBAD_FORMAT_NO_LABEL_DEF, FATAL, 499/* xgettext:no-c-format */ 500"No label definition for FORMAT statement at %0") 501FFEBAD_MSG (FFEBAD_SECOND_ELSE_WHERE, FATAL, 502/* xgettext:no-c-format */ 503"Second occurrence of ELSE WHERE at %0 within WHERE at %1") 504FFEBAD_MSG (FFEBAD_END_WO, WARN, 505/* xgettext:no-c-format */ 506"END statement at %0 missing `%A' keyword required for internal or module procedure(s) bounded by %1") 507FFEBAD_MSG (FFEBAD_INVALID_MODULE_PROCEDURE, FATAL, 508/* xgettext:no-c-format */ 509"MODULE PROCEDURE statement at %0 disallowed because INTERFACE at %1 specifies no generic name, operator, or assignment") 510FFEBAD_MSG (FFEBAD_BLOCKDATA_NOT_NAMED, FATAL, 511/* xgettext:no-c-format */ 512"BLOCK DATA name at %0 superfluous, no name specified at %1") 513FFEBAD_MSG (FFEBAD_PROGRAM_NOT_NAMED, FATAL, 514/* xgettext:no-c-format */ 515"Program name at %0 superfluous, no PROGRAM statement specified at %1") 516FFEBAD_MSG (FFEBAD_UNIT_WRONG_NAME, FATAL, 517/* xgettext:no-c-format */ 518"Program unit name at %0 not the same as name at %1") 519FFEBAD_MSG (FFEBAD_TYPE_WRONG_NAME, FATAL, 520/* xgettext:no-c-format */ 521"Type name at %0 not the same as name at %1") 522FFEBAD_MSG (FFEBAD_EOF_BEFORE_BLOCK_END, FATAL, 523/* xgettext:no-c-format */ 524"End of source file before end of block started at %0") 525FFEBAD_MSG (FFEBAD_UNDEF_LABEL, FATAL, 526/* xgettext:no-c-format */ 527"Undefined label, first referenced at %0") 528FFEBAD_MSG (FFEBAD_CONFLICTING_SAVES, WARN, 529/* xgettext:no-c-format */ 530"SAVE statement or attribute at %1 cannot be specified along with SAVE statement or attribute at %0") 531FFEBAD_MSG (FFEBAD_CONFLICTING_ACCESSES, FATAL, 532/* xgettext:no-c-format */ 533"PUBLIC or PRIVATE statement at %1 cannot be specified along with PUBLIC or PRIVATE statement at %0") 534FFEBAD_MSG (FFEBAD_RETURN_IN_MAIN, WARN, 535/* xgettext:no-c-format */ 536"RETURN statement at %0 invalid within a main program unit") 537FFEBAD_MSG (FFEBAD_ALTRETURN_IN_PROGRAM, FATAL, 538/* xgettext:no-c-format */ 539"Alternate return specifier at %0 invalid within a main program unit") 540FFEBAD_MSG (FFEBAD_ALTRETURN_IN_FUNCTION, FATAL, 541/* xgettext:no-c-format */ 542"Alternate return specifier at %0 invalid within a function") 543FFEBAD_MSG (FFEBAD_DERIVTYP_ACCESS, FATAL, 544/* xgettext:no-c-format */ 545"Access specifier or PRIVATE statement at %0 invalid for derived-type definition within other than the specification part of a module") 546FFEBAD_MSG (FFEBAD_DERIVTYP_ACCESS_FIRST, FATAL, 547/* xgettext:no-c-format */ 548"Access specifier at %0 must immediately follow derived-type statement at %1 with no intervening statements") 549FFEBAD_MSG (FFEBAD_DERIVTYP_NO_COMPONENTS, FATAL, 550/* xgettext:no-c-format */ 551"No components specified as of %0 for derived-type definition beginning at %1") 552FFEBAD_MSG (FFEBAD_STRUCT_NO_COMPONENTS, FATAL, 553/* xgettext:no-c-format */ 554"No components specified as of %0 for structure definition beginning at %1") 555FFEBAD_MSG (FFEBAD_STRUCT_MISSING_NAME, FATAL, 556/* xgettext:no-c-format */ 557"Missing structure name for outer structure definition at %0") 558FFEBAD_MSG (FFEBAD_STRUCT_IGNORING_FIELD, FATAL, 559/* xgettext:no-c-format */ 560"Field names at %0 for outer structure definition -- specify them in a subsequent RECORD statement instead") 561FFEBAD_MSG (FFEBAD_STRUCT_MISSING_FIELD, FATAL, 562/* xgettext:no-c-format */ 563"Missing field name(s) for structure definition at %0 within structure definition at %1") 564FFEBAD_MSG (FFEBAD_MAP_NO_COMPONENTS, FATAL, 565/* xgettext:no-c-format */ 566"No components specified as of %0 for map beginning at %1") 567FFEBAD_MSG (FFEBAD_UNION_NO_TWO_MAPS, FATAL, 568/* xgettext:no-c-format */ 569"Zero or one maps specified as of %0 for union beginning at %1 -- at least two are required") 570FFEBAD_MSG (FFEBAD_MISSING_SPECIFIER, FATAL, 571/* xgettext:no-c-format */ 572"Missing %A specifier in statement at %0") 573FFEBAD_MSG (FFEBAD_NAMELIST_ITEMS, FATAL, 574/* xgettext:no-c-format */ 575"Items in I/O list starting at %0 invalid for namelist-directed I/O") 576FFEBAD_MSG (FFEBAD_CONFLICTING_SPECS, FATAL, 577/* xgettext:no-c-format */ 578"Conflicting I/O control specifications at %0 and %1") 579FFEBAD_MSG (FFEBAD_NO_UNIT_SPEC, FATAL, 580/* xgettext:no-c-format */ 581"No UNIT= specifier in I/O control list at %0") 582FFEBAD_MSG (FFEBAD_MISSING_ADVANCE_SPEC, FATAL, 583/* xgettext:no-c-format */ 584"Specification at %0 requires ADVANCE=`NO' specification in same I/O control list") 585FFEBAD_MSG (FFEBAD_MISSING_FORMAT_SPEC, FATAL, 586/* xgettext:no-c-format */ 587"Specification at %0 requires explicit FMT= specification in same I/O control list") 588FFEBAD_MSG (FFEBAD_SPEC_VALUE, FATAL, 589/* xgettext:no-c-format */ 590LONG("Unrecognized value for character constant at %0 -- expecting %A") 591/* xgettext:no-c-format */ 592SHORT("Unrecognized value for character constant at %0")) 593FFEBAD_MSG (FFEBAD_CASE_SECOND_DEFAULT, FATAL, 594/* xgettext:no-c-format */ 595"Second occurrence of CASE DEFAULT at %0 within SELECT CASE at %1") 596FFEBAD_MSG (FFEBAD_CASE_DUPLICATE, FATAL, 597/* xgettext:no-c-format */ 598"Duplicate or overlapping case values/ranges at %0 and %1") 599FFEBAD_MSG (FFEBAD_CASE_TYPE_DISAGREE, FATAL, 600/* xgettext:no-c-format */ 601"Type and/or kind-type parameter disagreement between CASE value or value within range at %0 and SELECT CASE at %1") 602FFEBAD_MSG (FFEBAD_CASE_LOGICAL_RANGE, FATAL, 603/* xgettext:no-c-format */ 604"Range specification at %0 invalid for CASE statement within logical-type SELECT CASE statement") 605FFEBAD_MSG (FFEBAD_CASE_BAD_RANGE, FATAL, 606/* xgettext:no-c-format */ 607LONG("Range specification at %0 invalid -- at least one expression must be specified, or use CASE DEFAULT") 608/* xgettext:no-c-format */ 609SHORT("Range specification at %0 invalid")) 610FFEBAD_MSG (FFEBAD_CASE_RANGE_USELESS, INFORM, 611/* xgettext:no-c-format */ 612LONG("Range specification at %0 useless; first expression greater than second expression in range, so range can never be matched by any selection expression") 613/* xgettext:no-c-format */ 614SHORT("Useless range at %0")) 615FFEBAD_MSG (FFEBAD_F90, FATAL, 616/* xgettext:no-c-format */ 617"Fortran 90 feature at %0 unsupported") 618FFEBAD_MSG (FFEBAD_KINDTYPE, FATAL, 619/* xgettext:no-c-format */ 620LONG("Invalid kind at %0 for type at %1 -- unsupported or not permitted") 621/* xgettext:no-c-format */ 622SHORT("Invalid kind at %0 for type at %1")) 623FFEBAD_MSG (FFEBAD_BAD_IMPLICIT, FATAL, 624/* xgettext:no-c-format */ 625LONG("Cannot establish implicit type for initial letter `%A' at %0 -- already explicitly established or used to set implicit type of some name, or backwards order of letters in letter range") 626/* xgettext:no-c-format */ 627SHORT("Cannot establish implicit type for initial letter `%A' at %0")) 628FFEBAD_MSG (FFEBAD_SYMERR, FATAL, 629/* xgettext:no-c-format */ 630"Invalid declaration of or reference to symbol `%A' at %0 [initially seen at %1]") 631FFEBAD_MSG (FFEBAD_LABEL_WRONG_PLACE, FATAL, 632/* xgettext:no-c-format */ 633LONG("Label definition %A (at %0) invalid -- must be in columns 1-5") 634/* xgettext:no-c-format */ 635SHORT("Invalid label definition %A (at %0)")) 636FFEBAD_MSG (FFEBAD_NULL_ELEMENT, FATAL, 637/* xgettext:no-c-format */ 638"Null element at %0 for array reference at %1") 639FFEBAD_MSG (FFEBAD_TOO_FEW_ELEMENTS, FATAL, 640/* xgettext:no-c-format */ 641"Too few elements (%A missing) as of %0 for array reference at %1") 642FFEBAD_MSG (FFEBAD_TOO_MANY_ELEMENTS, FATAL, 643/* xgettext:no-c-format */ 644"Too many elements as of %0 for array reference at %1") 645FFEBAD_MSG (FFEBAD_MISSING_COLON_IN_SUBSTR, FATAL, 646/* xgettext:no-c-format */ 647"Missing colon as of %0 in substring reference for %1") 648FFEBAD_MSG (FFEBAD_BAD_SUBSTR, FATAL, 649/* xgettext:no-c-format */ 650"Invalid use at %0 of substring operator on %1") 651FFEBAD_MSG (FFEBAD_RANGE_SUBSTR, WARN, 652/* xgettext:no-c-format */ 653"Substring begin/end point at %0 out of defined range") 654FFEBAD_MSG (FFEBAD_RANGE_ARRAY, WARN, 655/* xgettext:no-c-format */ 656"Array element value at %0 out of defined range") 657FFEBAD_MSG (FFEBAD_EXPR_WRONG, FATAL, 658/* xgettext:no-c-format */ 659"Expression at %0 has incorrect data type or rank for its context") 660FFEBAD_MSG (FFEBAD_DIV_BY_ZERO, WARN, 661/* xgettext:no-c-format */ 662"Division by 0 (zero) at %0 (IEEE not yet supported)") 663FFEBAD_MSG (FFEBAD_DO_STEP_ZERO, FATAL, 664/* xgettext:no-c-format */ 665"%A step count known to be 0 (zero) at %0") 666FFEBAD_MSG (FFEBAD_DO_END_OVERFLOW, WARN, 667/* xgettext:no-c-format */ 668"%A end value plus step count known to overflow at %0") 669FFEBAD_MSG (FFEBAD_DO_IMP_OVERFLOW, WARN, 670/* xgettext:no-c-format */ 671"%A begin, end, and step-count values known to result in implementation-dependent behavior due to overflow(s) in intermediate calculations at %0") 672FFEBAD_MSG (FFEBAD_DO_NULL, WARN, 673/* xgettext:no-c-format */ 674"%A begin, end, and step-count values known to result in no iterations at %0") 675FFEBAD_MSG (FFEBAD_BAD_TYPES, FATAL, 676/* xgettext:no-c-format */ 677"Type disagreement between expressions at %0 and %1") 678FFEBAD_MSG (FFEBAD_FORMAT_EXPR_SPEC, FATAL, 679/* xgettext:no-c-format */ 680LONG("Run-time expression at %0 in FORMAT statement that does not follow the first executable statement in the program unit -- move the statement") 681/* xgettext:no-c-format */ 682SHORT("FORMAT at %0 with run-time expression must follow first executable statement")) 683FFEBAD_MSG (FFEBAD_BAD_IMPDO, FATAL, 684/* xgettext:no-c-format */ 685LONG("Unexpected token at %0 in implied-DO construct at %1 -- form of implied-DO is `(item-list,do-var=start,end[,incr])'") 686/* xgettext:no-c-format */ 687SHORT("Unexpected token at %0 in implied-DO construct at %1")) 688FFEBAD_MSG (FFEBAD_BAD_IMPDCL, FATAL, 689/* xgettext:no-c-format */ 690"No specification for implied-DO iterator `%A' at %0") 691FFEBAD_MSG (FFEBAD_IMPDO_PAREN, WARN, 692/* xgettext:no-c-format */ 693"Gratuitous parentheses surround implied-DO construct at %0") 694FFEBAD_MSG (FFEBAD_ZERO_SIZE, FATAL, 695/* xgettext:no-c-format */ 696"Zero-size specification invalid at %0") 697FFEBAD_MSG (FFEBAD_ZERO_ARRAY, FATAL, 698/* xgettext:no-c-format */ 699"Zero-size array at %0") 700FFEBAD_MSG (FFEBAD_BAD_COMPLEX, FATAL, 701/* xgettext:no-c-format */ 702"Target machine does not support complex entity of kind specified at %0") 703FFEBAD_MSG (FFEBAD_BAD_DBLCMPLX, FATAL, 704/* xgettext:no-c-format */ 705"Target machine does not support DOUBLE COMPLEX, specified at %0") 706FFEBAD_MSG (FFEBAD_BAD_POWER, WARN, 707/* xgettext:no-c-format */ 708"Attempt to raise constant zero to a power at %0") 709FFEBAD_MSG (FFEBAD_BOOL_ARGS_TYPE, FATAL, 710/* xgettext:no-c-format */ 711LONG("Boolean/logical operator at %0 must operate on two subexpressions of logical type, but neither subexpression at %1 or %2 is of logical type") 712/* xgettext:no-c-format */ 713SHORT("Invalid operands at %1 and %2 for boolean operator at %0")) 714FFEBAD_MSG (FFEBAD_BOOL_ARG_TYPE, FATAL, 715/* xgettext:no-c-format */ 716LONG("Boolean/logical operator at %0 must operate on two subexpressions of logical type, but the subexpression at %1 is not of logical type") 717/* xgettext:no-c-format */ 718SHORT("Invalid operand at %1 for boolean operator at %0")) 719FFEBAD_MSG (FFEBAD_BOOL_ARG_KIND, FATAL, 720/* xgettext:no-c-format */ 721LONG("Boolean/logical operator at %0 must operate on two scalar (not array) subexpressions, two function invocations returning logical scalars, or a combination of both -- but the subexpression at %1 is %A") 722/* xgettext:no-c-format */ 723SHORT("Invalid operand (is %A) at %1 for boolean operator at %0")) 724FFEBAD_MSG (FFEBAD_NOT_ARG_TYPE, FATAL, 725/* xgettext:no-c-format */ 726LONG(".NOT. operator at %0 must operate on subexpression of logical type, but the subexpression at %1 is not of logical type") 727/* xgettext:no-c-format */ 728SHORT("Invalid operand at %1 for .NOT. operator at %0")) 729FFEBAD_MSG (FFEBAD_NOT_ARG_KIND, FATAL, 730/* xgettext:no-c-format */ 731LONG(".NOT. operator at %0 must operate on scalar subexpressions -- but the subexpression at %1 is %A") 732/* xgettext:no-c-format */ 733SHORT("Invalid operand (is %A) at %1 for .NOT. operator at %0")) 734FFEBAD_MSG (FFEBAD_EQOP_ARGS_TYPE, FATAL, 735/* xgettext:no-c-format */ 736LONG("Equality operator at %0 must operate on two subexpressions of arithmetic or character type, but neither subexpression at %1 or %2 is of arithmetic or character type") 737/* xgettext:no-c-format */ 738SHORT("Invalid operands at %1 and %2 for equality operator at %0")) 739FFEBAD_MSG (FFEBAD_EQOP_ARG_TYPE, FATAL, 740/* xgettext:no-c-format */ 741LONG("Equality operator at %0 must operate on two subexpressions of arithmetic or character type, but the subexpression at %1 is not of arithmetic or character type") 742/* xgettext:no-c-format */ 743SHORT("Invalid operand at %1 for equality operator at %0")) 744FFEBAD_MSG (FFEBAD_EQOP_ARG_KIND, FATAL, 745/* xgettext:no-c-format */ 746LONG("Equality operator at %0 must operate on two scalar (not array) subexpressions, two function invocations returning arithmetic or character scalars, or a combination of both -- but the subexpression at %1 is %A") 747/* xgettext:no-c-format */ 748SHORT("Invalid operand (is %A) at %1 for equality operator at %0")) 749FFEBAD_MSG (FFEBAD_RELOP_ARGS_TYPE, FATAL, 750/* xgettext:no-c-format */ 751LONG("Relational operator at %0 must operate on two subexpressions of integer, real, or character type, but neither subexpression at %1 or %2 is of integer, real, or character type") 752/* xgettext:no-c-format */ 753SHORT("Invalid operands at %1 and %2 for relational operator at %0")) 754FFEBAD_MSG (FFEBAD_RELOP_ARG_TYPE, FATAL, 755/* xgettext:no-c-format */ 756LONG("Relational operator at %0 must operate on two subexpressions of integer, real, or character type, but the subexpression at %1 is not of integer, real, or character type") 757/* xgettext:no-c-format */ 758SHORT("Invalid operand at %1 for relational operator at %0")) 759FFEBAD_MSG (FFEBAD_RELOP_ARG_KIND, FATAL, 760/* xgettext:no-c-format */ 761LONG("Relational operator at %0 must operate on two scalar (not array) subexpressions, two function invocations returning integer, real, or character scalars, or a combination of both -- but the subexpression at %1 is %A") 762/* xgettext:no-c-format */ 763SHORT("Invalid operand (is %A) at %1 for relational operator at %0")) 764FFEBAD_MSG (FFEBAD_INTRINSIC_REF, FATAL, 765/* xgettext:no-c-format */ 766LONG("Reference to intrinsic `%A' at %0 invalid -- one or more arguments have incorrect type") 767/* xgettext:no-c-format */ 768SHORT("Invalid reference to intrinsic `%A' at %0")) 769FFEBAD_MSG (FFEBAD_INTRINSIC_TOOFEW, FATAL, 770/* xgettext:no-c-format */ 771LONG("Too few arguments passed to intrinsic `%A' at %0") 772/* xgettext:no-c-format */ 773SHORT("Too few arguments for intrinsic `%A' at %0")) 774FFEBAD_MSG (FFEBAD_INTRINSIC_TOOMANY, FATAL, 775/* xgettext:no-c-format */ 776LONG("Too many arguments passed to intrinsic `%A' at %0") 777/* xgettext:no-c-format */ 778SHORT("Too many arguments for intrinsic `%A' at %0")) 779FFEBAD_MSG (FFEBAD_INTRINSIC_DISABLED, FATAL, 780/* xgettext:no-c-format */ 781LONG("Reference to disabled intrinsic `%A' at %0") 782/* xgettext:no-c-format */ 783SHORT("Disabled intrinsic `%A' at %0")) 784FFEBAD_MSG (FFEBAD_INTRINSIC_IS_SUBR, FATAL, 785/* xgettext:no-c-format */ 786LONG("Reference to intrinsic subroutine `%A' as if it were a function at %0") 787/* xgettext:no-c-format */ 788SHORT("Function reference to intrinsic subroutine `%A' at %0")) 789FFEBAD_MSG (FFEBAD_INTRINSIC_IS_FUNC, FATAL, 790/* xgettext:no-c-format */ 791LONG("Reference to intrinsic function `%A' as if it were a subroutine at %0") 792/* xgettext:no-c-format */ 793SHORT("Subroutine reference to intrinsic function `%A' at %0")) 794FFEBAD_MSG (FFEBAD_INTRINSIC_UNIMPL, FATAL, 795/* xgettext:no-c-format */ 796LONG("Reference to unimplemented intrinsic `%A' at %0 -- use EXTERNAL to reference user-written procedure with this name") 797/* xgettext:no-c-format */ 798SHORT("Unimplemented intrinsic `%A' at %0")) 799FFEBAD_MSG (FFEBAD_INTRINSIC_UNIMPLW, WARN, 800/* xgettext:no-c-format */ 801LONG("Reference to unimplemented intrinsic `%A' at %0 (assumed EXTERNAL)") 802/* xgettext:no-c-format */ 803SHORT("Unimplemented intrinsic `%A' at %0 (assumed EXTERNAL)")) 804FFEBAD_MSG (FFEBAD_INTRINSIC_AMBIG, FATAL, 805/* xgettext:no-c-format */ 806"Reference to generic intrinsic `%A' at %0 could be to form %B or %C") 807FFEBAD_MSG (FFEBAD_INTRINSIC_CMPAMBIG, FATAL, 808/* xgettext:no-c-format */ 809"Ambiguous use of intrinsic `%A' at %0 [info -f g77 M CMPAMBIG]") 810FFEBAD_MSG (FFEBAD_INTRINSIC_EXPIMP, WARN, 811/* xgettext:no-c-format */ 812"Intrinsic `%A' referenced %Bly at %0, %Cly at %1 [info -f g77 M EXPIMP]") 813FFEBAD_MSG (FFEBAD_INTRINSIC_GLOBAL, WARN, 814/* xgettext:no-c-format */ 815"Same name `%A' used for %B at %0 and %C at %1 [info -f g77 M INTGLOB]") 816FFEBAD_MSG (FFEBAD_INTRINSIC_TYPE, WARN, 817/* xgettext:no-c-format */ 818"Explicit type declaration for intrinsic `%A' disagrees with invocation at %0") 819FFEBAD_MSG (FFEBAD_OPEN_INCLUDE, FATAL, 820/* xgettext:no-c-format */ 821"Unable to open INCLUDE file `%A' at %0") 822FFEBAD_MSG (FFEBAD_DOITER, FATAL, 823/* xgettext:no-c-format */ 824LONG("Attempt to modify variable `%A' at %0 while it serves as DO-loop iterator at %1") 825/* xgettext:no-c-format */ 826SHORT("Modification of DO-loop iterator `%A' at %0")) 827FFEBAD_MSG (FFEBAD_DOITER_IMPDO, FATAL, 828/* xgettext:no-c-format */ 829LONG("Attempt to modify variable `%A' via item #%B in list at %0 while it serves as implied-DO iterator at %1") 830/* xgettext:no-c-format */ 831SHORT("Modification of DO-loop iterator `%A' at %0")) 832FFEBAD_MSG (FFEBAD_TOO_MANY_DIMS, FATAL, 833/* xgettext:no-c-format */ 834LONG("Array has too many dimensions, as of dimension specifier at %0") 835/* xgettext:no-c-format */ 836SHORT("Too many dimensions at %0")) 837FFEBAD_MSG (FFEBAD_NULL_ARGUMENT, FATAL, 838/* xgettext:no-c-format */ 839"Null argument at %0 for statement function reference at %1") 840FFEBAD_MSG (FFEBAD_NULL_ARGUMENT_W, WARN, 841/* xgettext:no-c-format */ 842"Null argument at %0 for procedure invocation at %1") 843FFEBAD_MSG (FFEBAD_TOO_FEW_ARGUMENTS, FATAL, 844/* xgettext:no-c-format */ 845"%A too few arguments (starting with dummy argument `%B') as of %0 for statement function reference at %1") 846FFEBAD_MSG (FFEBAD_TOO_MANY_ARGUMENTS, FATAL, 847/* xgettext:no-c-format */ 848"%A too many arguments as of %0 for statement function reference at %1") 849FFEBAD_MSG (FFEBAD_ARRAY_AS_SFARG, FATAL, 850/* xgettext:no-c-format */ 851"Array supplied at %1 for dummy argument `%A' in statement function reference at %0") 852FFEBAD_MSG (FFEBAD_FORMAT_UNSUPPORTED, FATAL, 853/* xgettext:no-c-format */ 854"Unsupported FORMAT specifier at %0") 855FFEBAD_MSG (FFEBAD_FORMAT_VARIABLE, FATAL, 856/* xgettext:no-c-format */ 857"Variable-expression FORMAT specifier at %0 -- unsupported") 858FFEBAD_MSG (FFEBAD_OPEN_UNSUPPORTED, FATAL, 859/* xgettext:no-c-format */ 860LONG("Unsupported OPEN control item at %0 -- ACTION=, ASSOCIATEVARIABLE=, BLOCKSIZE=, BUFFERCOUNT=, CARRIAGECONTROL=, DEFAULTFILE=, DELIM=, DISPOSE=, EXTENDSIZE=, INITIALSIZE=, KEY=, MAXREC=, NOSPANBLOCKS, ORGANIZATION=, PAD=, POSITION=, READONLY=, RECORDTYPE=, SHARED=, and USEROPEN= are not supported") 861/* xgettext:no-c-format */ 862SHORT("Unsupported OPEN control item at %0")) 863FFEBAD_MSG (FFEBAD_INQUIRE_UNSUPPORTED, FATAL, 864/* xgettext:no-c-format */ 865LONG("Unsupported INQUIRE control item at %0 -- ACTION=, CARRIAGECONTROL=, DEFAULTFILE=, DELIM=, KEYED=, ORGANIZATION=, PAD=, POSITION=, READ=, READWRITE=, RECORDTYPE=, and WRITE= are not supported") 866/* xgettext:no-c-format */ 867SHORT("Unsupported INQUIRE control item at %0")) 868FFEBAD_MSG (FFEBAD_READ_UNSUPPORTED, FATAL, 869/* xgettext:no-c-format */ 870LONG("Unsupported READ control item at %0 -- ADVANCE=, EOR=, KEYEQ=, KEYGE=, KEYGT=, KEYID=, NULLS=, and SIZE= are not supported") 871/* xgettext:no-c-format */ 872SHORT("Unsupported READ control item at %0")) 873FFEBAD_MSG (FFEBAD_WRITE_UNSUPPORTED, FATAL, 874/* xgettext:no-c-format */ 875LONG("Unsupported WRITE control item at %0 -- ADVANCE= and EOR= are not supported") 876/* xgettext:no-c-format */ 877SHORT("Unsupported WRITE control item at %0")) 878FFEBAD_MSG (FFEBAD_VXT_UNSUPPORTED, FATAL, 879/* xgettext:no-c-format */ 880"Unsupported VXT statement at %0") 881FFEBAD_MSG (FFEBAD_DATA_REINIT, FATAL, 882/* xgettext:no-c-format */ 883"Attempt to specify second initial value for `%A' at %0") 884FFEBAD_MSG (FFEBAD_DATA_TOOFEW, FATAL, 885/* xgettext:no-c-format */ 886"Too few initial values in list of initializers for `%A' at %0") 887FFEBAD_MSG (FFEBAD_DATA_TOOMANY, FATAL, 888/* xgettext:no-c-format */ 889"Too many initial values in list of initializers starting at %0") 890FFEBAD_MSG (FFEBAD_DATA_RANGE, FATAL, 891/* xgettext:no-c-format */ 892"Array or substring specification for `%A' out of range in statement at %0") 893FFEBAD_MSG (FFEBAD_DATA_SUBSCRIPT, FATAL, 894/* xgettext:no-c-format */ 895"Array subscript #%B out of range for initialization of `%A' in statement at %0") 896FFEBAD_MSG (FFEBAD_DATA_ZERO, FATAL, 897/* xgettext:no-c-format */ 898"Implied do-loop step count of 0 (zero) for iteration variable `%A' in statement at %0") 899FFEBAD_MSG (FFEBAD_DATA_EMPTY, FATAL, 900/* xgettext:no-c-format */ 901"Implied do-loop iteration count of 0 (zero) for iteration variable `%A' in statement at %0") 902FFEBAD_MSG (FFEBAD_DATA_EVAL, FATAL, 903/* xgettext:no-c-format */ 904"Not an integer constant expression in implied do-loop in statement at %0") 905FFEBAD_MSG (FFEBAD_DATA_MULTIPLE, FATAL, 906/* xgettext:no-c-format */ 907"Attempt to specify second initial value for element of `%A' at %0") 908FFEBAD_MSG (FFEBAD_EQUIV_COMMON, FATAL, 909/* xgettext:no-c-format */ 910"Attempt to EQUIVALENCE common areas `%A' and `%B' at %0") 911FFEBAD_MSG (FFEBAD_EQUIV_ALIGN, FATAL, 912/* xgettext:no-c-format */ 913"Can't place `%A' as directed by EQUIVALENCE due to alignment restrictions") 914FFEBAD_MSG (FFEBAD_EQUIV_MISMATCH, FATAL, 915/* xgettext:no-c-format */ 916"Mismatched EQUIVALENCE requirements for placement of `%A' at both %C and %D bytes offset from `%B'") 917FFEBAD_MSG (FFEBAD_EQUIV_RANGE, FATAL, 918/* xgettext:no-c-format */ 919"Array or substring specification for `%A' out of range in EQUIVALENCE statement") 920FFEBAD_MSG (FFEBAD_EQUIV_SUBSTR, FATAL, 921/* xgettext:no-c-format */ 922"Substring of non-CHARACTER entity `%A' in EQUIVALENCE statement") 923FFEBAD_MSG (FFEBAD_EQUIV_ARRAY, FATAL, 924/* xgettext:no-c-format */ 925"Array reference to scalar variable `%A' in EQUIVALENCE statement") 926FFEBAD_MSG (FFEBAD_EQUIV_SUBSCRIPT, WARN, 927/* xgettext:no-c-format */ 928"Array subscript #%B out of range for EQUIVALENCE of `%A'") 929FFEBAD_MSG (FFEBAD_COMMON_PAD, WARN, 930/* xgettext:no-c-format */ 931LONG("Padding of %A %D required before `%B' in common block `%C' at %0 -- consider reordering members, largest-type-size first") 932/* xgettext:no-c-format */ 933SHORT("Padding of %A %D required before `%B' in common block `%C' at %0")) 934FFEBAD_MSG (FFEBAD_COMMON_NEG, FATAL, 935/* xgettext:no-c-format */ 936"Attempt to extend COMMON area beyond its starting point via EQUIVALENCE of `%A'") 937FFEBAD_MSG (FFEBAD_EQUIV_FEW, FATAL, 938/* xgettext:no-c-format */ 939"Too few elements in reference to array `%A' in EQUIVALENCE statement") 940FFEBAD_MSG (FFEBAD_EQUIV_MANY, FATAL, 941/* xgettext:no-c-format */ 942"Too many elements in reference to array `%A' in EQUIVALENCE statement") 943FFEBAD_MSG (FFEBAD_MIXED_TYPES, WARN, 944/* xgettext:no-c-format */ 945"Mixed CHARACTER and non-CHARACTER types via COMMON/EQUIVALENCE -- for example, `%A' and `%B'") 946FFEBAD_MSG (FFEBAD_IMPLICIT_ADJLEN, FATAL, 947/* xgettext:no-c-format */ 948LONG("Invalid length specification at %0 for IMPLICIT statement -- must be integer constant expression") 949/* xgettext:no-c-format */ 950SHORT("Invalid length specification at %0")) 951FFEBAD_MSG (FFEBAD_ENTRY_CONFLICTS, FATAL, 952/* xgettext:no-c-format */ 953LONG("Type of ENTRY point at %0 to function conflicts with type(s) of previous entrypoint(s) -- must all be identical-length CHARACTER or none be CHARACTER type") 954/* xgettext:no-c-format */ 955SHORT("Type of ENTRY point at %0 to function conflicts with type(s) of previous entrypoint(s)")) 956FFEBAD_MSG (FFEBAD_RETURN_VALUE_UNSET, WARN, 957/* xgettext:no-c-format */ 958"Return value `%A' for FUNCTION at %0 not referenced in subprogram") 959FFEBAD_MSG (FFEBAD_COMMON_ALREADY_INIT, FATAL, 960/* xgettext:no-c-format */ 961LONG("Common block `%A' initialized at %0 already initialized at %1 -- only one program unit may specify initial values for a particular common block") 962/* xgettext:no-c-format */ 963SHORT("Common block `%A' initialized at %0 already initialized at %1")) 964FFEBAD_MSG (FFEBAD_COMMON_INIT_PAD, WARN, 965/* xgettext:no-c-format */ 966LONG("Initial padding for common block `%A' is %B %C at %0 -- consider reordering members, largest-type-size first") 967/* xgettext:no-c-format */ 968SHORT("Initial padding for common block `%A' is %B %C at %0")) 969FFEBAD_MSG (FFEBAD_COMMON_DIFF_PAD, FATAL, 970/* xgettext:no-c-format */ 971LONG("Initial padding for common block `%A' is %B %D at %0 but %C %E at %1 -- consider reordering members, largest-type-size first") 972/* xgettext:no-c-format */ 973SHORT("Initial padding for common block `%A' is %B %D at %0 but %C %E at %1")) 974FFEBAD_MSG (FFEBAD_COMMON_DIFF_SAVE, WARN, 975/* xgettext:no-c-format */ 976"Common block `%A' is SAVEd, explicitly or implicitly, at %0 but not SAVEd at %1") 977FFEBAD_MSG (FFEBAD_COMMON_DIFF_SIZE, WARN, 978/* xgettext:no-c-format */ 979"Common block `%A' is %B %D in length at %0 but %C %E at %1") 980FFEBAD_MSG (FFEBAD_COMMON_ENLARGED, FATAL, 981/* xgettext:no-c-format */ 982LONG("Common block `%A' is initialized to %B %D long at %0 but enlarged to %C %E at %1 -- use consistent definitions or reorder program units in source file") 983/* xgettext:no-c-format */ 984SHORT("Common block `%A' is initialized to %B %D long at %0 but enlarged to %C %E at %1")) 985FFEBAD_MSG (FFEBAD_COMMON_BLANK_INIT, WARN, 986/* xgettext:no-c-format */ 987"Blank common initialized at %0") 988FFEBAD_MSG (FFEBAD_NEED_INTRINSIC, WARN, 989/* xgettext:no-c-format */ 990"Intrinsic `%A' is passed as actual argument at %0 but not explicitly declared INTRINSIC") 991FFEBAD_MSG (FFEBAD_NEED_EXTERNAL, WARN, 992/* xgettext:no-c-format */ 993"External procedure `%A' is passed as actual argument at %0 but not explicitly declared EXTERNAL") 994FFEBAD_MSG (FFEBAD_SYMBOL_UPPER_CASE, WARN, 995/* xgettext:no-c-format */ 996"Character `%A' (for example) is upper-case in symbol name at %0") 997FFEBAD_MSG (FFEBAD_SYMBOL_LOWER_CASE, WARN, 998/* xgettext:no-c-format */ 999"Character `%A' (for example) is lower-case in symbol name at %0") 1000FFEBAD_MSG (FFEBAD_SYMBOL_NOLOWER_INITCAP, WARN, 1001/* xgettext:no-c-format */ 1002"Character `%A' not followed at some point by lower-case character in symbol name at %0") 1003FFEBAD_MSG (FFEBAD_SYMBOL_LOWER_INITCAP, WARN, 1004/* xgettext:no-c-format */ 1005"Initial character `%A' is lower-case in symbol name at %0") 1006FFEBAD_MSG (FFEBAD_DO_REAL, WARN, 1007/* xgettext:no-c-format */ 1008LONG("DO-variable `%A' is type REAL or DOUBLE PRECISION at %0 -- unexpected behavior likely") 1009/* xgettext:no-c-format */ 1010SHORT("DO-variable `%A' is type REAL or DOUBLE PRECISION at %0")) 1011FFEBAD_MSG (FFEBAD_NAMELIST_CASE, WARN, 1012/* xgettext:no-c-format */ 1013"NAMELIST not adequately supported by run-time library for source files with case preserved") 1014FFEBAD_MSG (FFEBAD_NESTED_PERCENT, WARN, 1015/* xgettext:no-c-format */ 1016"Nested %% construct (%%VAL, %%REF, or %%DESCR) at %0") 1017FFEBAD_MSG (FFEBAD_ACTUALARG, WARN, 1018/* xgettext:no-c-format */ 1019LONG("Invalid actual argument at %0 -- replace hollerith constants with %%REF('string') and typeless constants with INTEGER constant equivalents, or use -fugly-args or -fugly") 1020/* xgettext:no-c-format */ 1021SHORT("Invalid actual argument at %0")) 1022FFEBAD_MSG (FFEBAD_QUAD_UNSUPPORTED, FATAL, 1023/* xgettext:no-c-format */ 1024LONG("Quadruple-precision floating-point unsupported -- treating constant at %0 as double-precision") 1025/* xgettext:no-c-format */ 1026SHORT("Quadruple-precision floating-point unsupported")) 1027FFEBAD_MSG (FFEBAD_TOO_BIG_INIT, WARN, 1028/* xgettext:no-c-format */ 1029LONG("Initialization of large (%B-unit) aggregate area `%A' at %0 slow and takes lots of memory during g77 compile") 1030/* xgettext:no-c-format */ 1031SHORT("This could take a while (initializing `%A' at %0)...")) 1032FFEBAD_MSG (FFEBAD_BLOCKDATA_STMT, FATAL, 1033/* xgettext:no-c-format */ 1034"Statement at %0 invalid in BLOCK DATA program unit at %1") 1035FFEBAD_MSG (FFEBAD_TRUNCATING_CHARACTER, FATAL, 1036/* xgettext:no-c-format */ 1037"Truncating characters on right side of character constant at %0") 1038FFEBAD_MSG (FFEBAD_TRUNCATING_HOLLERITH, FATAL, 1039/* xgettext:no-c-format */ 1040"Truncating characters on right side of hollerith constant at %0") 1041FFEBAD_MSG (FFEBAD_TRUNCATING_NUMERIC, FATAL, 1042/* xgettext:no-c-format */ 1043"Truncating non-zero data on left side of numeric constant at %0") 1044FFEBAD_MSG (FFEBAD_TRUNCATING_TYPELESS, FATAL, 1045/* xgettext:no-c-format */ 1046"Truncating non-zero data on left side of typeless constant at %0") 1047FFEBAD_MSG (FFEBAD_TYPELESS_OVERFLOW, FATAL, 1048/* xgettext:no-c-format */ 1049"Typeless constant at %0 too large") 1050FFEBAD_MSG (FFEBAD_AMPERSAND, WARN, 1051/* xgettext:no-c-format */ 1052"First-column ampersand continuation at %0") 1053FFEBAD_MSG (FFEBAD_FILEWIDE_ALREADY_SEEN, FATAL, 1054/* xgettext:no-c-format */ 1055"Global name `%A' defined at %0 already defined at %1 [info -f g77 M GLOBALS]") 1056FFEBAD_MSG (FFEBAD_FILEWIDE_ALREADY_SEEN_W, WARN, 1057/* xgettext:no-c-format */ 1058"Global name `%A' defined at %0 already defined at %1 [info -f g77 M GLOBALS]") 1059FFEBAD_MSG (FFEBAD_FILEWIDE_DISAGREEMENT, FATAL, 1060/* xgettext:no-c-format */ 1061"Global name `%A' is %B at %0 but is %C at %1 [info -f g77 M GLOBALS]") 1062FFEBAD_MSG (FFEBAD_FILEWIDE_DISAGREEMENT_W, WARN, 1063/* xgettext:no-c-format */ 1064"Global name `%A' is %B at %0 but is %C at %1 [info -f g77 M GLOBALS]") 1065FFEBAD_MSG (FFEBAD_FILEWIDE_TYPE_MISMATCH, FATAL, 1066/* xgettext:no-c-format */ 1067"Global name `%A' at %0 has different type at %1 [info -f g77 M GLOBALS]") 1068FFEBAD_MSG (FFEBAD_FILEWIDE_TYPE_MISMATCH_W, WARN, 1069/* xgettext:no-c-format */ 1070"Global name `%A' at %0 has different type at %1 [info -f g77 M GLOBALS]") 1071FFEBAD_MSG (FFEBAD_FILEWIDE_NARGS, FATAL, 1072/* xgettext:no-c-format */ 1073"Too %B arguments passed to `%A' at %0 versus definition at %1 [info -f g77 M GLOBALS]") 1074FFEBAD_MSG (FFEBAD_FILEWIDE_NARGS_W, WARN, 1075/* xgettext:no-c-format */ 1076"Too %B arguments for `%A' at %0 versus invocation at %1 [info -f g77 M GLOBALS]") 1077FFEBAD_MSG (FFEBAD_FILEWIDE_ARG, FATAL, 1078/* xgettext:no-c-format */ 1079"Argument #%B of `%A' is %C at %0 but is %D at %1 [info -f g77 M GLOBALS]") 1080FFEBAD_MSG (FFEBAD_FILEWIDE_ARG_W, WARN, 1081/* xgettext:no-c-format */ 1082"Argument #%B of `%A' is %C at %0 but is %D at %1 [info -f g77 M GLOBALS]") 1083FFEBAD_MSG (FFEBAD_ARRAY_LARGE, FATAL, 1084/* xgettext:no-c-format */ 1085"Array `%A' at %0 is too large to handle") 1086FFEBAD_MSG (FFEBAD_SFUNC_UNUSED, WARN, 1087/* xgettext:no-c-format */ 1088"Statement function `%A' defined at %0 is not used") 1089FFEBAD_MSG (FFEBAD_INTRINSIC_Y2KBAD, WARN, 1090/* xgettext:no-c-format */ 1091"Intrinsic `%A', invoked at %0, known to be non-Y2K-compliant [info -f g77 M Y2KBAD]") 1092FFEBAD_MSG (FFEBAD_NOCANDO, DISASTER, 1093/* xgettext:no-c-format */ 1094"Internal compiler error -- cannot perform operation") 1095 1096#undef INFORM 1097#undef TRIVIAL 1098#undef WARN 1099#undef PECULIAR 1100#undef FATAL 1101#undef WEIRD 1102#undef SEVERE 1103#undef DISASTER 1104