errmsgr.c

来自「开放源码的编译器open watcom 1.6.0版的源代码」· C语言 代码 · 共 1,812 行 · 第 1/5 页

/****************************************************************************
*
*                            Open Watcom Project
*
*    Portions Copyright (c) 1983-2002 Sybase, Inc. All Rights Reserved.
*
*  ========================================================================
*
*    This file contains Original Code and/or Modifications of Original
*    Code as defined in and that are subject to the Sybase Open Watcom
*    Public License version 1.0 (the 'License'). You may not use this file
*    except in compliance with the License. BY USING THIS FILE YOU AGREE TO
*    ALL TERMS AND CONDITIONS OF THE LICENSE. A copy of the License is
*    provided with the Original Code and Modifications, and is also
*    available at www.sybase.com/developer/opensource.
*
*    The Original Code and all software distributed under the License are
*    distributed on an 'AS IS' basis, WITHOUT WARRANTY OF ANY KIND, EITHER
*    EXPRESS OR IMPLIED, AND SYBASE AND ALL CONTRIBUTORS HEREBY DISCLAIM
*    ALL SUCH WARRANTIES, INCLUDING WITHOUT LIMITATION, ANY WARRANTIES OF
*    MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE, QUIET ENJOYMENT OR
*    NON-INFRINGEMENT. Please see the License for the specific language
*    governing rights and limitations under the License.
*
*  ========================================================================
*
* Description:  WHEN YOU FIGURE OUT WHAT THIS FILE DOES, PLEASE
*               DESCRIBE IT HERE!
*
****************************************************************************/


#include "ftnstd.h"

static const char __FAR Msg0[] = {
/* invalid number of arguments to intrinsic function %s1  */
 8,20,26,5,92,8,37,12,0
/* dummy argument %s1 appears more than once  */
,7,73,17,0,69,100,77,86
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
/* dummy argument %s1 must not appear before definition of ENTRY %s2  */
,11,73,17,0,14,1,79,111,53,5,198,11
};
static const char __FAR Msg256[] = {
/* %s1 was initialized in a block data subprogram but is not in COMMON  */
 13,0,62,121,3,9,29,63,50,45,4,1,3,22
/* %s1 statement is not permitted in a BLOCK DATA subprogram  */
,11,0,2,4,1,255,234,3,9,67,142,50
};
static const char __FAR Msg512[] = {
/* invalid character encountered in source input  */
 6,20,23,228,3,255,22
/* invalid character in statement number columns  */
,6,20,23,3,2,26,217
/* character in continuation column, but no statement to continue  */
,11,23,3,94,255,139,45,76,2,8,255,144
/* character encountered is not FORTRAN 77 standard  */
,5,23,228,4,1,6
/* columns 1-5 in a continuation line must be blank  */
,10,217,255,51,3,9,94,30,14,7,147
/* more than 19 continuation lines is not FORTRAN 77 standard  */
,10,100,77,255,52,94,255,0,4,1,6
/* end-of-line comment is not FORTRAN 77 standard  */
,6,255,160,218,4,1,6
/* D in column 1 is not FORTRAN 77 standard  */
,8,255,68,3,152,138,4,1,6
/* too many continuation lines  */
,5,104,172,94,255,0
};
static const char __FAR Msg768[] = {
/* %s1 already in COMMON  */
 4,0,57,3,22
/* initializing %s1 in COMMON outside of block data subprogram is not FORTRAN 77 standard  */
,14,255,194,0,3,22,255,13,5,29,63,50,4,1,6
/* character and non-character data in COMMON is not FORTRAN 77 standard  */
,10,23,51,255,9,63,3,22,4,1,6
/* COMMON block %s1 has been defined with a different size  */
,10,22,29,0,24,39,52,28,9,157,40
/* named COMMON block %s1 appears in more than one BLOCK DATA subprogram  */
,13,255,220,22,29,0,69,3,100,77,125,67,142,50
/* blank COMMON block has been defined with a different size  */
,10,147,22,29,24,39,52,28,9,157,40
};
static const char __FAR Msg1024[] = {
/* DOUBLE PRECISION COMPLEX constants are not FORTRAN 77 standard  */
 6,106,196,115,80,1,6
/* invalid floating-point constant %s1  */
,4,20,118,34,0
/* zero length character constants are not allowed  */
,7,105,47,23,115,80,1,19
/* invalid hexadecimal/octal constant  */
,3,20,242,34
/* hexadecimal/octal constant is not FORTRAN 77 standard  */
,5,242,34,4,1,6
};
static const char __FAR Msg1280[] = {
/* %s1 is already being included  */
 5,0,4,57,255,125
/* '%s1' option cannot take a NO prefix  */
,9,78,101,16,255,255,22,9,255,91
/* expecting an equals sign following the %s1 option  */
,9,10,15,231,181,255,177,27,0,101
/* the '%s1' option requires a number  */
,6,27,78,101,129,9,26
/* option '%s1' not recognized - ignored  */
,7,101,78,1,255,244,56,246
/* '%s1' option not allowed in source input stream  */
,10,78,101,1,19,3,255,22,255,255,13
/* nesting level exceeded for compiler directives  */
,8,255,8,255,206,161,35,114,225
/* mismatching compiler directives  */
,4,255,213,114,225
};
static const char __FAR Msg1536[] = {
 0
/* argument %d1 incompatible with register  */
,6,17,136,255,191,28,128
/* subprogram %s1 has invalid return register  */
,6,50,0,24,20,130,128
/* low on memory - unable to fully optimize %s1  */
,14,255,4,85,99,56,255,255,32,8,255,185,255,10,0
/* internal compiler error %d1  */
,4,122,114,81,136
/* illegal register modified by %s1  */
,6,36,128,255,216,112,0
/* %s1  */
,1,0
/* fatal: %s1  */
,3,255,173,0
/* dynamic memory not freed  */
,5,116,99,1,255,182
/* freeing unowned dynamic memory  */
,4,255,183,116,99
/* The automatic equivalence containing %s1 exceeds 32K limit  */
,9,143,212,255,162,220,0,96,140,84
/* The return value of %s1 exceeds 32K limit  */
,8,143,130,188,5,0,96,140,84
/* The automatic variable %s1 exceeds 32K limit  */
,7,143,212,21,0,96,140,84
};
static const char __FAR Msg1792[] = {
/* CHARACTER variable %s1 with length (*) not allowed in this expression  */
 11,141,21,0,28,47,89,1,19,3,55,64
/* character variable %s1 with length (*) must be a subprogram argument  */
,11,23,21,0,28,47,89,14,7,9,50,17
};
static const char __FAR Msg2048[] = {
/* implied DO variable %s1 must be an integer variable  */
 9,163,43,21,0,14,7,15,65,21
/* repeat specification must be a positive integer  */
,8,179,49,14,7,9,255,236,65
/* %s1 appears in an expression but is not an implied DO variable  */
,12,0,69,3,15,64,45,4,1,15,163,43,21
/* %s1 in blank COMMON block cannot be initialized  */
,8,0,3,147,22,29,16,7,121
/* data initialization with hexadecimal constant is not FORTRAN 77 standard  */
,8,63,250,28,241,34,4,1,6
/* cannot initialize %s1 %s2  */
,4,16,251,0,11
/* data initialization in %s1 statement is not FORTRAN 77 standard  */
,8,63,250,3,0,2,4,1,6
/* not enough constants for list of variables  */
,7,1,229,115,35,48,5,88
,0
/* too many constants for list of variables  */
,7,104,172,115,35,48,5,88
,0
/* cannot initialize %s1 variable %s2 with %s3 constant  */
,8,16,251,0,21,11,28,137,34
};
static const char __FAR Msg2304[] = {
/* using %s1 incorrectly in dimension expression  */
 6,187,0,165,3,224,64
};
static const char __FAR Msg2560[] = {
/* statement number %i1 already defined in line %d2 - DO loop is backwards  */
 14,2,26,42,57,52,3,30,41,56,43,54,4,255,123
/* %s1 statement not allowed at termination of DO range  */
,11,0,2,1,19,70,255,255,27,5,43,103
/* improper nesting of DO loop  */
,6,248,255,8,5,43,54
/* ENDDO cannot terminate DO loop with statement label  */
,11,255,74,16,255,255,26,43,54,28,2,168
/* this DO loop form is not FORTRAN 77 standard  */
,8,55,43,54,255,178,4,1,6
/* expecting comma or DO variable  */
,5,10,113,13,43,21
/* DO variable cannot be redefined while DO loop is active  */
,11,43,21,16,7,255,246,43,54,4,255,105
};
static const char __FAR Msg2816[] = {
/* equivalencing %s1 has caused extension of COMMON block %s2 to the left  */
 14,232,0,24,255,137,236,5,22,29,11,8,27,255,203
/* %s1 and %s2 in COMMON are equivalenced to each other  */
,12,0,51,11,3,22,80,160,8,255,159,255,11
};
static const char __FAR Msg3072[] = {
/* missing END statement  */
 3,25,197,2
};
static const char __FAR Msg3328[] = {
/* target of assignment is illegal  */
 7,255,255,23,5,145,4,36
/* cannot assign value to %s1  */
,6,16,255,120,188,8,0
/* illegal use of equal sign  */
,6,36,134,5,255,161,181
/* multiple assignment is not FORTRAN 77 standard  */
,6,255,6,145,4,1,6
/* expecting equals sign  */
,3,10,231,181
};
static const char __FAR Msg3584[] = {
/* %s1 has been equivalenced to 2 different relative positions  */
 9,0,24,39,160,8,139,157,255,248
/* EQUIVALENCE list must contain at least 2 names  */
,9,199,48,14,153,70,169,139,255,7
/* %s1 incorrectly subscripted in %s2 statement  */
,8,0,165,255,255,18,3,11,2
/* incorrect substring of %s1 in %s2 statement  */
,7,249,183,5,0,3,11,2
/* equivalencing CHARACTER and non-CHARACTER data is not FORTRAN 77 standard  */
,9,232,141,51,255,222,63,4,1,6
/* attempt to substring %s1 in EQUIVALENCE statement but type is %s2  */
,11,110,8,183,0,3,199,2,45,33,4,11
};
static const char __FAR Msg3840[] = {
/* zero**J where J <= 0 is not allowed  */
 6,255,255,50,4,1,19
};
static const char __FAR Msg4096[] = {
/* type of entry %s1 does not match type of function %s2  */
 11,33,5,230,0,158,1,173,33,5,12,11
/* ENTRY statement not allowed within structured control blocks  */
,10,198,2,1,19,135,255,255,15,72,213
/* size of entry %s1 does not match size of function %s2  */
,11,40,5,230,0,158,1,173,40,5,12,11
};
static const char __FAR Msg4352[] = {
/* missing delimiter in format string, comma assumed  */
 10,25,255,148,3,46,255,255,14,113,109
/* missing or invalid constant  */
,4,25,13,20,34
/* Ew.dDe format code is not FORTRAN 77 standard  */
,7,255,76,46,71,4,1,6
/* missing decimal point  */
,3,25,255,146
/* missing or invalid edit descriptor in format string  */
,8,25,13,20,117,156,3,46,182
/* unrecognizable edit descriptor in format string  */
,6,186,117,156,3,46,182
/* invalid repeat specification  */
,3,20,179,49
/* $ or \ format code is not FORTRAN 77 standard  */
,10,255,34,13,255,104,46,71,4,1,6
/* invalid field modifier  */
,4,20,82,255,217
/* expecting end of FORMAT statement but found more text  */
,11,10,74,5,90,2,45,98,100,255,255,28
/* repeat specification not allowed for this format code  */
,8,179,49,1,19,35,55,46,71
/* no statement number on FORMAT statement  */
,6,76,2,26,85,90,2
/* no closing quote on apostrophe edit descriptor  */
,9,76,151,255,16,85,255,114,117,156
/* field count greater than 256 is invalid  */
,8,82,255,145,77,255,55,4,20
/* invalid field width specification  */
,6,20,82,255,255,45,49
/* Z format code is not FORTRAN 77 standard  */
,7,255,103,46,71,4,1,6
,0
,0
,0
/* missing constant before X edit descriptor, 1 assumed  */
,10,25,34,111,255,102,117,255,150,138,109
/* Ew.dQe format code is not FORTRAN 77 standard  */
,7,255,77,46,71,4,1,6
/* Qw.d format code is not FORTRAN 77 standard  */
,7,255,93,46,71,4,1,6
};
static const char __FAR Msg4608[] = {
/* %s1 statement label may not appear in ASSIGN statement but did in line %d2  */
 15,0,2,168,174,1,79,3,193,2,45,255,153,3,30,41
/* ASSIGN of statement number %i1 in line %d2 not allowed  */
,10,193,5,2,26,42,3,30,41,1,19
/* expecting TO  */
,3,10,255,98
};
static const char __FAR Msg4864[] = {
/* hollerith constant is not FORTRAN 77 standard  */
 5,243,34,4,1,6
/* not enough characters for hollerith constant  */
,6,1,229,149,35,243,34
};
static const char __FAR Msg5120[] = {
/* ELSE block must be the last block in block IF  */
 13,255,72,29,14,7,27,255,202,29,3,29,255,81
/* expecting THEN  */
,3,10,255,97
};
static const char __FAR Msg5376[] = {
/* missing or invalid format/FMT specification  */
 6,25,13,20,255,179,49
/* the UNIT may not be an internal file for this statement  */
,11,27,207,174,1,7,15,122,31,35,55,2
/* %s1 statement cannot have %s2 specification  */
,6,0,2,16,120,11,49
/* variable must have a size of 4  */
,8,21,14,120,9,40,5,255,56
/* missing or unrecognizable control list item %s1  */
,7,25,13,186,72,48,167,0
/* attempt to specify control list item %s1 more than once  */
,12,110,8,255,255,9,72,48,167,0,100,77,86
/* implied DO loop has no input/output list  */
,7,163,43,54,24,76,252,48
/* list-directed input/output with internal files is not FORTRAN 77 standard  */
,9,255,1,252,28,122,97,4,1,6
/* FORTRAN 77 standard requires an asterisk for list-directed formatting  */
,9,6,129,15,146,35,255,1,255,181
/* missing or improper unit identification  */
,5,25,13,248,185,244
/* missing unit identification or file specification  */
,6,25,185,244,13,31,49
/* asterisk unit identifier not allowed in %s1 statement  */
,8,146,185,245,1,19,3,0,2
/* cannot have both UNIT and FILE specifier  */
,8,16,120,148,207,51,255,79,61
/* internal files require sequential access  */
,4,122,97,255,249
/* END specifier with REC specifier is not FORTRAN 77 standard  */
,9,197,61,28,255,95,61,4,1,6
/* %s1 specifier in i/o list is not FORTRAN 77 standard  */
,8,0,61,3,162,48,4,1,6
/* i/o list is not allowed with NAMELIST-directed format  */
,9,162,48,4,1,19,28,255,90,46
/* non-character array as format specifier is not FORTRAN 77 standard  */
,9,255,9,38,44,46,61,4,1,6
};
static const char __FAR Msg5632[] = {
/* illegal range of characters  */
 4,36,103,5,149
/* letter can only be implicitly declared once  */
,9,255,205,93,59,7,255,190,154,86
/* unrecognizable type  */
,2,186,33
/* (*) length specifier in an IMPLICIT statement is not FORTRAN 77 standard  */
,10,89,47,61,3,15,107,2,4,1,6
/* IMPLICIT NONE allowed once or not allowed with other IMPLICIT statements  */
,14,107,255,92,19,86,13,1,19,28,255,11,107,255,23
};
static const char __FAR Msg6144[] = {
/* floating-point divide by zero  */
 4,118,226,112,105