bad.def

gcc-2.95.3 Linux下最常用的C编译器

/* bad.def -- Public #include File (module.h template V1.0)
   Copyright (C) 1995-1997 Free Software Foundation, Inc.
   Contributed by James Craig Burley.

This file is part of GNU Fortran.

GNU Fortran is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2, or (at your option)
any later version.

GNU Fortran is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
GNU General Public License for more details.

You should have received a copy of the GNU General Public License
along with GNU Fortran; see the file COPYING.  If not, write to
the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA
02111-1307, USA.

   Owning Modules:
      bad.c

   Modifications:
*/

#define INFORM FFEBAD_severityINFORMATIONAL
#define TRIVIAL FFEBAD_severityTRIVIAL
#define WARN FFEBAD_severityWARNING
#define PECULIAR FFEBAD_severityPECULIAR
#define FATAL FFEBAD_severityFATAL
#define WEIRD FFEBAD_severityWEIRD
#define SEVERE FFEBAD_severitySEVERE
#define DISASTER FFEBAD_severityDISASTER

FFEBAD_MSGS1 (FFEBAD_MISSING_FIRST_BINARY_OPERAND, FATAL,
"Missing first operand for binary operator at %0")
FFEBAD_MSGS1 (FFEBAD_NULL_CHAR_CONST, WARN,
"Zero-length character constant at %0")
FFEBAD_MSGS1 (FFEBAD_INVALID_TOKEN_IN_EXPRESSION, FATAL,
"Invalid token at %0 in expression or subexpression at %1")
FFEBAD_MSGS1 (FFEBAD_MISSING_OPERAND_FOR_OPERATOR, FATAL,
"Missing operand for operator at %1 at end of expression at %0")
FFEBAD_MSGS1 (FFEBAD_LABEL_ALREADY_DEFINED, FATAL,
"Label %A already defined at %1 when redefined at %0")
FFEBAD_MSGS1 (FFEBAD_UNRECOGNIZED_CHARACTER, FATAL,
"Unrecognized character at %0 [info -f g77 M LEX]")
FFEBAD_MSGS1 (FFEBAD_LABEL_WITHOUT_STMT, WARN,
"Label definition %A at %0 on empty statement (as of %1)")
FFEBAD_MSGS2 (FFEBAD_EXTRA_LABEL_DEF, FATAL,
"Extra label definition %A at %0 -- perhaps previous label definition %B at %1 should have CONTINUE statement?",
"Extra label definition %A at %0 following label definition %B at %1")
FFEBAD_MSGS1 (FFEBAD_FIRST_CHAR_INVALID, FATAL,
"Invalid first character at %0 [info -f g77 M LEX]")
FFEBAD_MSGS1 (FFEBAD_LINE_TOO_LONG, FATAL,
"Line too long as of %0 [info -f g77 M LEX]")
FFEBAD_MSGS1 (FFEBAD_LABEL_FIELD_NOT_NUMERIC, FATAL,
"Non-numeric character at %0 in label field [info -f g77 M LEX]")
FFEBAD_MSGS1 (FFEBAD_LABEL_NUMBER_INVALID, FATAL,
"Label number at %0 not in range 1-99999")
FFEBAD_MSGS1 (FFEBAD_NON_ANSI_COMMENT, WARN,
"At %0, '!' and '/*' are not valid comment delimiters")
FFEBAD_MSGS1 (FFEBAD_NON_ANSI_CONTINUATION_COLUMN, WARN,
"Continuation indicator at %0 must appear in column 6 [info -f g77 M LEX]")
FFEBAD_MSGS1 (FFEBAD_LABEL_ON_CONTINUATION, FATAL,
"Label at %0 invalid with continuation line indicator at %1 [info -f g77 M LEX]")
FFEBAD_MSGS2 (FFEBAD_INVALID_CONTINUATION, FATAL,
"Continuation indicator at %0 invalid on first non-comment line of file or following END or INCLUDE [info -f g77 M LEX]",
"Continuation indicator at %0 invalid here [info -f g77 M LEX]")
FFEBAD_MSGS1 (FFEBAD_NO_CLOSING_APOSTROPHE, FATAL,
"Character constant at %0 has no closing apostrophe at %1")
FFEBAD_MSGS1 (FFEBAD_NOT_ENOUGH_HOLLERITH_CHARS, FATAL,
"Hollerith constant at %0 specified %A more characters than are present as of %1")
FFEBAD_MSGS1 (FFEBAD_MISSING_CLOSE_PAREN, FATAL,
"Missing close parenthese at %0 needed to match open parenthese at %1")
FFEBAD_MSGS1 (FFEBAD_INTEGER_TOO_LARGE, FATAL,
"Integer at %0 too large")
FFEBAD_MSGS2 (FFEBAD_BAD_MAGICAL, WARN,
"Integer at %0 too large except as negative number (preceded by unary minus sign)",
"Non-negative integer at %0 too large")
FFEBAD_MSGS2 (FFEBAD_BAD_MAGICAL_PRECEDENCE, WARN,
"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",
"Integer at %0 too large (%2 has precedence over %1)")
FFEBAD_MSGS2 (FFEBAD_BAD_MAGICAL_BINARY, WARN,
"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",
"Integer at %0 too large (needs unary, not binary, minus at %1)")
FFEBAD_MSGS2 (FFEBAD_BAD_MAGICAL_PRECEDENCE_BINARY, WARN,
"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",
"Integer at %0 too large (%2 has precedence over %1, which needs to be unary, not binary, minus)")
FFEBAD_MSGS1 (FFEBAD_IGNORING_PERIOD, FATAL,
"Period at %0 not followed by digits for floating-point number or by `NOT.', `TRUE.', or `FALSE.'")
FFEBAD_MSGS1 (FFEBAD_INSERTING_PERIOD, FATAL,
"Missing close-period between `.%A' at %0 and %1")
FFEBAD_MSGS1 (FFEBAD_INVALID_EXPONENT, FATAL,
"Invalid exponent at %0 for real constant at %1; nondigit `%A' in exponent field")
FFEBAD_MSGS1 (FFEBAD_MISSING_EXPONENT_VALUE, FATAL,
"Missing value at %1 for real-number exponent at %0")
FFEBAD_MSGS1 (FFEBAD_MISSING_BINARY_OPERATOR, FATAL,
"Expected binary operator between expressions at %0 and at %1")
FFEBAD_MSGS2 (FFEBAD_INVALID_DOTDOT, FATAL,
"Period at %0 not followed by valid keyword forming a valid binary operator; `.%A.' is not a valid binary operator",
"`.%A.' at %0 not a binary operator")
FFEBAD_MSGS2 (FFEBAD_QUOTE_MISSES_DIGITS, FATAL,
"Double-quote at %0 not followed by a string of valid octal digits at %1",
"Invalid octal constant at %0")
FFEBAD_MSGS2 (FFEBAD_INVALID_BINARY_DIGIT, FATAL,
"Invalid binary digit(s) found in string of digits at %0",
"Invalid binary constant at %0")
FFEBAD_MSGS2 (FFEBAD_INVALID_HEX_DIGIT, FATAL,
"Invalid hexadecimal digit(s) found in string of digits at %0",
"Invalid hexadecimal constant at %0")
FFEBAD_MSGS2 (FFEBAD_INVALID_OCTAL_DIGIT, FATAL,
"Invalid octal digit(s) found in string of digits at %0",
"Invalid octal constant at %0")
FFEBAD_MSGS2 (FFEBAD_INVALID_RADIX_SPECIFIER, FATAL,
"Invalid radix specifier `%A' at %0 for typeless constant at %1",
"Invalid typeless constant at %1")
FFEBAD_MSGS2 (FFEBAD_INVALID_TYPELESS_BINARY_DIGIT, FATAL,
"Invalid binary digit(s) found in string of digits at %0",
"Invalid binary constant at %0")
FFEBAD_MSGS2 (FFEBAD_INVALID_TYPELESS_OCTAL_DIGIT, FATAL,
"Invalid octal digit(s) found in string of digits at %0",
"Invalid octal constant at %0")
FFEBAD_MSGS2 (FFEBAD_INVALID_TYPELESS_HEX_DIGIT, FATAL,
"Invalid hexadecimal digit(s) found in string of digits at %0",
"Invalid hexadecimal constant at %0")
FFEBAD_MSGS2 (FFEBAD_INVALID_COMPLEX_PART, FATAL,
"%A part of complex constant at %0 must be a real or integer constant -- otherwise use CMPLX() or COMPLEX() in place of ()",
"%A part of complex constant at %0 not a real or integer constant")
FFEBAD_MSGS2 (FFEBAD_INVALID_PERCENT, FATAL,
"Invalid keyword `%%%A' at %0 in this context",
"Invalid keyword `%%%A' at %0")
FFEBAD_MSGS2 (FFEBAD_NULL_EXPRESSION, FATAL,
"Null expression between %0 and %1 invalid in this context",
"Invalid null expression between %0 and %1")
FFEBAD_MSGS2 (FFEBAD_CONCAT_ARGS_TYPE, FATAL,
"Concatenation operator at %0 must operate on two subexpressions of character type, but neither subexpression at %1 or %2 is of character type",
"Invalid operands at %1 and %2 for concatenation operator at %0")
FFEBAD_MSGS2 (FFEBAD_CONCAT_ARG_TYPE, FATAL,
"Concatenation operator at %0 must operate on two subexpressions of character type, but the subexpression at %1 is not of character type",
"Invalid operand at %1 for concatenation operator at %0")
FFEBAD_MSGS2 (FFEBAD_CONCAT_ARG_KIND, FATAL,
"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",
"Invalid operand (is %A) at %1 for concatenation operator at %0")
FFEBAD_MSGS2 (FFEBAD_MATH_ARGS_TYPE, FATAL,
"Arithmetic operator at %0 must operate on two subexpressions of arithmetic type, but neither subexpression at %1 or %2 is of arithmetic type",
"Invalid operands at %1 and %2 for arithmetic operator at %0")
FFEBAD_MSGS2 (FFEBAD_MATH_ARG_TYPE, FATAL,
"Arithmetic operator at %0 must operate on two subexpressions of arithmetic type, but the subexpression at %1 is not of arithmetic type",
"Invalid operand at %1 for arithmetic operator at %0")
FFEBAD_MSGS2 (FFEBAD_MATH_ARG_KIND, FATAL,
"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",
"Invalid operand (is %A) at %1 for arithmetic operator at %0")
FFEBAD_MSGS2 (FFEBAD_NO_CLOSING_QUOTE, FATAL,
"Character constant at %0 has no closing quote at %1 [info -f g77 M LEX]",
"Unterminated character constant at %0 [info -f g77 M LEX]")
FFEBAD_MSGS2 (FFEBAD_BAD_CHAR_CONTINUE, FATAL,
"Continuation line at %0 must have initial `&' since it continues a character context [info -f g77 M LEX]",
"Missing initial `&' on continuation line at %0 [info -f g77 M LEX]")
FFEBAD_MSGS2 (FFEBAD_BAD_LEXTOK_CONTINUE, FATAL,
"Continuation line at %0 must have initial `&' since it continues a split lexical token [info -f g77 M LEX]",
"Missing initial `&' on continuation line at %0 [info -f g77 M LEX]")
FFEBAD_MSGS2 (FFEBAD_BAD_FREE_CONTINUE, FATAL,
"Continuation line at %0 invalid because it consists only of a single `&' as the only nonblank character",
"Invalid continuation line at %0")
FFEBAD_MSGS2 (FFEBAD_STMT_BEGINS_BAD, FATAL,
"Statement at %0 begins with invalid token [info -f g77 M LEX]",
"Invalid statement at %0 [info -f g77 M LEX]")
FFEBAD_MSGS1 (FFEBAD_SEMICOLON, FATAL,
"Semicolon at %0 is an invalid token")
FFEBAD_MSGS2 (FFEBAD_UNREC_STMT, FATAL,
"Unrecognized statement name at %0 and invalid form for assignment or statement-function definition at %1",
"Invalid statement at %0")
FFEBAD_MSGS2 (FFEBAD_INVALID_STMT_FORM, FATAL,
"Invalid form for %A statement at %0",
"Invalid %A statement at %0")
FFEBAD_MSGS2 (FFEBAD_INVALID_HOLL_IN_STMT, FATAL,
"Invalid use of hollerith constant in statement at %0 -- enclose the constant in parentheses (for example, change BACKSPACE 2HAB to BACKSPACE (2HAB))",
"Enclose hollerith constant in statement at %0 in parentheses")
FFEBAD_MSGS1 (FFEBAD_FORMAT_EXTRA_COMMA, FATAL,
"Extraneous comma in FORMAT statement at %0")
FFEBAD_MSGS1 (FFEBAD_FORMAT_MISSING_COMMA, WARN,
"Missing comma in FORMAT statement at %0")
FFEBAD_MSGS1 (FFEBAD_FORMAT_SPURIOUS_SIGN, FATAL,
"Spurious sign in FORMAT statement at %0")
FFEBAD_MSGS1 (FFEBAD_FORMAT_SPURIOUS_NUMBER, FATAL,
"Spurious number in FORMAT statement at %0")
FFEBAD_MSGS1 (FFEBAD_FORMAT_TEXT_IN_NUMBER, FATAL,
"Spurious text trailing number in FORMAT statement at %0")
FFEBAD_MSGS2 (FFEBAD_FORMAT_P_NOCOMMA, FATAL,
"nP control edit descriptor not followed by comma but followed by edit descriptor at %0 other than D, E, EN, F, or G",
"Invalid edit descriptor at %0 following nP control edit descriptor")
FFEBAD_MSGS1 (FFEBAD_FORMAT_BAD_SPEC, FATAL,
"Unrecognized FORMAT specifier at %0")
FFEBAD_MSGS2 (FFEBAD_FORMAT_BAD_I_SPEC, FATAL,
"Invalid I specifier in FORMAT statement at %0 -- correct form: [r]Iw.[m]",
"Invalid I specifier in FORMAT statement at %0")
FFEBAD_MSGS2 (FFEBAD_FORMAT_BAD_B_SPEC, FATAL,
"Invalid B specifier in FORMAT statement at %0 -- correct form: [r]Bw.[m]",
"Invalid B specifier in FORMAT statement at %0")
FFEBAD_MSGS2 (FFEBAD_FORMAT_BAD_O_SPEC, FATAL,
"Invalid O specifier in FORMAT statement at %0 -- correct form: [r]Ow.[m]",
"Invalid O specifier in FORMAT statement at %0")
FFEBAD_MSGS2 (FFEBAD_FORMAT_BAD_Z_SPEC, FATAL,
"Invalid Z specifier in FORMAT statement at %0 -- correct form: [r]Zw.[m]",
"Invalid Z specifier in FORMAT statement at %0")
FFEBAD_MSGS2 (FFEBAD_FORMAT_BAD_F_SPEC, FATAL,
"Invalid F specifier in FORMAT statement at %0 -- correct form: [r]Fw.d",
"Invalid F specifier in FORMAT statement at %0")
FFEBAD_MSGS2 (FFEBAD_FORMAT_BAD_E_SPEC, FATAL,
"Invalid E specifier in FORMAT statement at %0 -- correct form: [r]Ew.d[Ee]",
"Invalid E specifier in FORMAT statement at %0")
FFEBAD_MSGS2 (FFEBAD_FORMAT_BAD_EN_SPEC, FATAL,
"Invalid EN specifier in FORMAT statement at %0 -- correct form: [r]ENw.d[Ee]",
"Invalid EN specifier in FORMAT statement at %0")
FFEBAD_MSGS2 (FFEBAD_FORMAT_BAD_G_SPEC, FATAL,
"Invalid G specifier in FORMAT statement at %0 -- correct form: [r]Gw.d[Ee]",
"Invalid G specifier in FORMAT statement at %0")
FFEBAD_MSGS2 (FFEBAD_FORMAT_BAD_L_SPEC, FATAL,
"Invalid L specifier in FORMAT statement at %0 -- correct form: [r]Lw",
"Invalid L specifier in FORMAT statement at %0")
FFEBAD_MSGS2 (FFEBAD_FORMAT_BAD_A_SPEC, FATAL,
"Invalid A specifier in FORMAT statement at %0 -- correct form: [r]A[w]",
"Invalid A specifier in FORMAT statement at %0")
FFEBAD_MSGS2 (FFEBAD_FORMAT_BAD_D_SPEC, FATAL,
"Invalid D specifier in FORMAT statement at %0 -- correct form: [r]Dw.d",
"Invalid D specifier in FORMAT statement at %0")
FFEBAD_MSGS2 (FFEBAD_FORMAT_BAD_Q_SPEC, FATAL,
"Invalid Q specifier in FORMAT statement at %0 -- correct form: Q",
"Invalid Q specifier in FORMAT statement at %0")
FFEBAD_MSGS2 (FFEBAD_FORMAT_BAD_DOLLAR_SPEC, FATAL,
"Invalid $ specifier in FORMAT statement at %0 -- correct form: $",
"Invalid $ specifier in FORMAT statement at %0")
FFEBAD_MSGS2 (FFEBAD_FORMAT_BAD_P_SPEC, FATAL,
"Invalid P specifier in FORMAT statement at %0 -- correct form: kP",
"Invalid P specifier in FORMAT statement at %0")
FFEBAD_MSGS2 (FFEBAD_FORMAT_BAD_T_SPEC, FATAL,
"Invalid T specifier in FORMAT statement at %0 -- correct form: Tn",