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