errmsg3.c

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