errmsg3.c

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

static const char __FAR Msg6144[] = {
/* floating-point divide by zero  */
 4,101,237,118,111
/* floating-point overflow  */
,2,101,185
/* floating-point underflow  */
,4,101,255,255,69
/* integer divide by zero  */
,4,69,237,118,111
/* program interrupted from keyboard  */
,6,107,255,228,124,255,231
/* integer overflow  */
,2,69,185
};
static const char __FAR Msg6400[] = {
 0
,0
,0
,0
/* argument of CHAR must be in the range zero to 255  */
,13,17,5,255,79,14,7,3,28,108,111,8,255,67
/* %s1 intrinsic function cannot be passed 2 complex arguments  */
,9,0,37,12,16,7,134,147,230,95
/* argument types must be the same for the %s1 intrinsic function  */
,13,17,255,41,14,7,28,255,33,20,28,0,37,12
/* expecting numeric argument, but %s1 argument was found  */
,10,10,255,255,1,221,45,0,17,65,102
,0
/* cannot pass %s1 as argument to intrinsic function  */
,8,16,186,0,44,17,8,37,12
/* intrinsic function requires argument(s)  */
,5,37,12,136,255,137
/* %s1 argument type is invalid for this generic function  */
,10,0,17,34,4,21,20,57,255,218,12
/* this intrinsic function cannot be passed as an argument  */
,9,57,37,12,16,7,134,44,15,17
/* expecting %s1 argument, but %s2 argument was found  */
,8,10,0,221,45,11,17,65,102
/* intrinsic function was assigned wrong type  */
,6,37,12,65,255,142,34
/* intrinsic function %s1 is not FORTRAN 77 standard  */
,6,37,12,0,4,1,6
/* argument to ALLOCATED intrinsic function must be an allocatable array or character*(*) variable  */
,15,17,8,255,78,37,12,14,7,15,219,38,13,255,163,22
/* invalid argument to ISIZEOF intrinsic function  */
,7,21,17,8,255,104,37,12
};
static const char __FAR Msg6656[] = {
/* relational operator has a logical operand  */
 10,255,255,25,63,25,9,178,255,255,3
/* mixing DOUBLE PRECISION and COMPLEX types is not FORTRAN 77 standard  */
,10,255,248,112,51,206,255,41,4,1,6
/* operator not expecting %s1 operands  */
,5,63,1,10,0,184
/* operator not expecting %s1 and %s2 operands  */
,7,63,1,10,0,51,11,184
/* complex quantities can only be compared using .EQ. or .NE.  */
,15,230,255,255,19,96,62,7,255,166,196,255,60,13,255,61
/* unary operator not expecting %s1 type  */
,8,255,255,67,63,1,10,0,34
/* logical operator with integer operands is not FORTRAN 77 standard  */
,8,178,63,29,69,184,4,1,6
/* logical operator %s1 is not FORTRAN 77 standard  */
,6,178,63,0,4,1,6
};
static const char __FAR Msg6912[] = {
/* %s1 exceeds compiler limit of %u2 bytes  */
 8,0,100,121,86,5,199,255,154
/* out of memory  */
,4,255,25,5,55
/* dynamic memory exhausted due to length of this statement - statement ignored  */
,14,122,55,255,194,168,8,47,5,57,2,58,2,255,3
};
static const char __FAR Msg7168[] = {
/* missing or misplaced closing parenthesis  */
 6,26,13,255,17,160,133
/* missing or misplaced opening parenthesis  */
,6,26,13,255,17,183,133
/* unexpected parenthesis  */
,2,193,133
/* unmatched parentheses  */
,3,255,255,73
};
static const char __FAR Msg7424[] = {
/* expecting symbolic name  */
 3,10,140,18
/* illegal size specified for VALUE attribute  */
,9,36,40,255,255,43,20,255,120,222
/* illegal argument attribute  */
,3,36,17,222
/* continuation line must contain a comment character in column 1  */
,10,98,31,14,162,9,229,24,3,161,146
/* expecting '%s1' near '%s2'  */
,4,10,79,255,254
/* in-line byte sequence limit exceeded  */
,5,126,224,189,86,170
/* illegal hexadecimal data in byte sequence  */
,6,36,253,66,3,224,189
/* symbol '%s1' in in-line assembly code cannot be resolved  */
,13,255,38,79,3,126,255,140,61,16,7,255,255,28
};
static const char __FAR Msg7680[] = {
/* alternate return specifier only allowed in subroutine  */
 8,255,133,137,64,62,19,3,139
/* RETURN statement in main program is not FORTRAN 77 standard  */
,8,216,2,3,179,107,4,1,6
};
static const char __FAR Msg7936[] = {
/* COMMON block %s1 saved but not properly defined  */
 11,23,30,0,255,34,45,1,255,255,18,52
/* COMMON block %s1 must be saved in every subprogram in which it appears  */
,16,23,30,0,14,7,255,34,3,255,193,50,3,255,255,78,73
/* name already appeared in a previous SAVE statement  */
,11,18,59,255,136,3,9,255,255,15,217,2
};
static const char __FAR Msg8192[] = {
/* statement function definition contains duplicate dummy arguments  */
 8,2,12,53,232,255,183,76,95
/* character length of statement function name must not be (*)  */
,10,24,47,5,2,12,18,14,1,7,91
/* statement function definition contains illegal dummy argument  */
,7,2,12,53,232,36,76,17
/* cannot pass %s1 %s2 to statement function  */
,7,16,186,0,11,8,2,12
/* %s1 actual argument was passed to %s2 dummy argument  */
,10,0,255,127,17,65,134,8,11,76,17
/* incorrect number of arguments passed to statement function %s1  */
,10,255,6,27,5,95,134,8,2,12,0
/* type of statement function name must not be a user-defined structure  */
,13,34,5,2,12,18,14,1,7,9,255,255,75,33
};
static const char __FAR Msg8448[] = {
/* system file error reading %s1 - %s2  */
 10,255,39,32,82,255,255,20,0,58,11
/* error opening file %s1 - %s2  */
,6,82,183,32,0,58,11
/* system file error writing %s1 - %s2  */
,10,255,39,32,82,255,255,83,0,58,11
,0
,0
/* error opening %s1 - too many temporary files exist  */
,12,82,183,0,58,110,180,255,255,58,84,255,195
/* generation of browsing information failed  */
,8,255,217,5,255,153,85,255,200
};
static const char __FAR Msg8704[] = {
/* cannot have both ATEND and the END= specifier  */
 9,16,125,158,204,51,28,255,89,64
/* ATEND must immediately follow a READ statement  */
,9,204,14,255,4,251,9,255,114,2
/* block label must be a symbolic name  */
,7,30,176,14,7,9,140,18
/* could not find a structure to %s1 from  */
,9,233,1,255,203,9,33,8,0,124
/* REMOTE BLOCK is not allowed in the range of any control structure  */
,13,94,71,4,1,19,3,28,108,5,255,134,75,33
/* the SELECT statement must be followed immediately by a CASE statement  */
,14,28,255,116,2,14,7,255,205,255,4,118,9,205,2
/* cases are overlapping  */
,6,255,161,81,255,255,8
/* select structure requires at least one CASE statement  */
,10,255,255,37,33,136,74,177,132,205,2
/* cannot branch to %i1 from outside control structure in line %d2  */
,12,16,60,8,42,124,255,26,75,33,3,31,41
/* cannot branch to %i1 inside structure on line %d2  */
,10,16,60,8,42,255,226,33,87,31,41
/* low end of range exceeds the high end  */
,10,255,16,77,5,108,100,28,255,220,77
/* default case block must follow all case blocks  */
,9,164,225,30,14,251,255,130,225,223
/* attempt to branch out of a REMOTE BLOCK  */
,9,116,8,60,255,25,5,9,94,71
/* attempt to EXECUTE undefined REMOTE BLOCK %s1  */
,7,116,8,255,91,94,71,0
/* attempted to use REMOTE BLOCK recursively  */
,9,255,144,8,141,94,71,255,255,22
/* cannot RETURN from subprogram within a REMOTE BLOCK  */
,8,16,216,124,50,142,9,94,71
/* %s1 statement is not FORTRAN 77 standard  */
,5,0,2,4,1,6
/* %s1 block is unfinished  */
,6,0,30,4,255,255,70
/* %s1 statement does not match with %s2 statement  */
,8,0,2,167,1,181,29,11,2
/* incomplete control structure found at %s1 statement  */
,8,255,223,75,33,102,74,0,2
/* %s1 statement is not allowed in %s2 definition  */
,8,0,2,4,1,19,3,11,53
/* no such field name found in structure %s1  */
,10,70,255,255,54,83,18,102,3,33,0
/* multiple definition of field name %s1  */
,7,255,18,53,5,83,18,0
/* structure %s1 has not been defined  */
,6,33,0,25,1,39,52
/* structure %s1 has already been defined  */
,6,33,0,25,59,39,52
/* structure %s1 must contain at least one field  */
,8,33,0,14,162,74,177,132,83
/* recursion detected in definition of structure %s1  */
,7,255,30,3,53,5,33,0
/* illegal use of structure %s1 containing union  */
,9,36,141,5,33,0,231,255,255,71
/* allocatable arrays cannot be fields within structures  */
,11,219,255,139,16,7,255,202,142,255,255,50
/* an integer conditional expression is not FORTRAN 77 standard  */
,8,15,69,255,169,67,4,1,6
/* %s1 statement must be used within %s2 definition  */
,8,0,2,14,7,89,142,11,53
};
static const char __FAR Msg8960[] = {
/* name can only appear in an EXTERNAL statement once  */
 9,18,96,62,80,3,15,210,2,88
/* character function %s1 may not be called since size was declared as (*)  */
,13,24,12,0,182,1,7,255,157,40,65,163,44,91
/* %s1 can only be used an an argument to a subroutine  */
,11,0,96,62,7,89,15,15,17,8,9,139
/* name cannot appear in both an INTRINSIC and EXTERNAL statement  */
,10,18,16,80,3,158,15,213,51,210,2
/* expecting a subroutine name  */
,4,10,9,139,18
/* %s1 statement not allowed in main program  */
,7,0,2,1,19,3,179,107
/* not an intrinsic FUNCTION name  */
,6,1,15,37,255,99,18
/* name can only appear in an INTRINSIC statement once  */
,9,18,96,62,80,3,15,213,2,88
/* subprogram recursion detected  */
,3,50,255,30
/* two main program units in the same file  */
,13,255,255,65,179,107,255,255,72,3,28,255,33,32
/* only one unnamed %s1 is allowed in an executable program  */
,12,62,132,255,255,74,0,4,19,3,15,244,107
/* function referenced as a subroutine  */
,6,12,255,31,44,9,139
};
static const char __FAR Msg9216[] = {
/* substringing of function or statement function return value is not FORTRAN 77 standard  */
 12,255,37,5,12,13,2,12,137,197,4,1,6
/* substringing valid only for character variables and array elements  */
,12,255,37,255,255,76,62,20,24,90,51,38,238
};
static const char __FAR Msg9472[] = {
/* statement number %i1 has already been defined in line %d2  */
 10,2,27,42,25,59,39,52,3,31,41
/* statement function definition appears after first executable statement  */
,8,2,12,53,73,153,248,244,2
/* %s1 statement must not be branched to but was in line %d2  */
,13,0,2,14,1,7,255,151,8,45,65,3,31,41
/* branch to statement %i1 in line %d2 not allowed  */
,9,60,8,2,42,3,31,41,1,19
/* specification statement must appear before %s1 is initialized  */
,8,49,2,14,80,117,0,4,127
/* statement %i1 was referenced as a FORMAT statement in line %d2  */
,12,2,42,65,255,31,44,9,92,2,3,31,41
/* IMPLICIT statement appears too late  */
,6,113,2,73,110,255,10
/* this statement will never be executed due to the preceding branch  */
,12,57,2,255,44,7,245,168,8,28,255,27,60
/* expecting statement number  */
,3,10,2,27
/* statement number %i1 was not used as a FORMAT statement in line %d2  */
,13,2,27,42,65,1,89,44,9,92,2,3,31,41
/* specification statement appears too late  */
,6,49,2,73,110,255,10
/* %s1 statement not allowed after %s2 statement  */
,7,0,2,1,19,153,11,2
/* statement number must be 99999 or less  */
,9,2,27,14,7,255,76,13,255,236
/* statement number cannot be zero  */
,5,2,27,16,7,111
/* this statement could branch to itself  */
,7,57,2,233,60,8,255,230
/* missing statement number %i1 - used in line %d2  */
,9,26,2,27,42,58,89,3,31,41
/* undecodeable statement or misspelled word %s1  */
,8,255,255,68,2,13,255,247,0
/* statement %i1 will never be executed due to the preceding branch  */
,12,2,42,255,44,7,245,168,8,28,255,27,60
/* expecting keyword or symbolic name  */
,6,10,255,232,13,140,18
/* number in %s1 statement is longer than 5 digits  */
,10,27,3,0,2,4,255,15,78,255,70
/* position of DATA statement is not FORTRAN 77 standard  */
,9,255,255,12,5,151,2,4,1,6
};
static const char __FAR Msg9728[] = {
/* variable %s1 in array declarator must be in COMMON or a dummy argument  */
 13,22,0,3,38,234,14,7,3,23,13,9,76,17
/* adjustable/assumed size array %s1 must be a dummy argument  */
,10,255,128,40,38,0,14,7,9,76,17
/* invalid subscript expression  */
,5,21,255,255,51,67
/* invalid number of subscripts  */
,6,21,27,5,255,255,53
/* using %s1 name incorrectly without list  */
,8,196,0,18,173,255,255,82,48
/* cannot substring array name %s1  */
,5,16,192,38,18,0
/* %s1 treated as an assumed size array  */
,9,0,255,255,64,44,15,115,40,38
/* assumed size array %s1 cannot be used as an i/o list item or a format/unit identifier  */
,18,115,40,38,0,16,7,89,44,15,171,48,175,13,9,255,209,255,2
/* limit of 65535 elements per dimension has been exceeded  */
,12,86,5,255,72,238,255,255,10,235,25,39,170
};
static const char __FAR Msg9984[] = {
/* unexpected number or name %s1  */
 5,193,27,13,18,0
/* bad sequence of operators  */
,7,255,146,189,5,255,255,5
/* invalid operator  */
,2,21,63
/* expecting end of statement after right parenthesis  */
,9,10,77,5,2,153,255,255,31,133
/* expecting an asterisk  */
,3,10,15,155
/* expecting colon  */
,2,10,227
/* expecting colon or end of statement  */
,6,10,227,13,77,5,2
/* missing comma  */
,2,26,120
/* expecting end of statement  */
,4,10,77,5,2
/* expecting integer variable  */
,3,10,69,22
/* expecting %s1 name  */
,3,10,0,18
/* expecting an integer  */
,3,10,15,69
/* expecting INTEGER, REAL, or DOUBLE PRECISION variable  */
,5,10,212,13,112,22
/* missing operator  */
,2,26,63
/* expecting a slash  */
,5,10,9,255,255,40
/* expecting %s1 expression  */
,3,10,0,67
/* expecting a constant expression  */
,4,10,9,35,67
/* expecting INTEGER, REAL, or DOUBLE PRECISION expression  */
,5,10,212,13,112,67
/* expecting INTEGER or CHARACTER constant  */
,6,10,255,102,13,150,35
/* unexpected operator  */
,2,193,63
/* no closing quote on literal string  */
,8,70,160,255,29,87,255,241,191
/* missing or invalid constant  */
,4,26,13,21,35
/* expecting character constant  */
,3,10,24,35
};
static const char __FAR Msg10240[] = {
/* length specification before array declarator is not FORTRAN 77 standard  */
 8,47,49,117,38,234,4,1,6
/* %i1 is an illegal length for %s2 type  */
,8,42,4,15,36,47,20,11,34
/* length specifier in %s1 statement is not FORTRAN 77 standard  */
,8,47,64,3,0,2,4,1,6