errmsg.c

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

/****************************************************************************
*
*                            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 Msg1536[] = {
/* program abnormally terminated  */
 2,81,120
};
static const char __FAR Msg3840[] = {
/* zero**J where J <= 0 is not allowed  */
 6,181,57,111,1,0,11
/* X**Y where X < 0.0, Y is not of type INTEGER, is not allowed  */
,13,116,57,61,96,62,1,0,6,54,110,1,0,11
/* (0,0)**Y where Y is not real is not allowed  */
,9,92,57,62,1,0,162,1,0,11
};
static const char __FAR Msg4352[] = {
/* missing delimiter in format string, comma assumed  */
 6,9,138,5,4,167,66
/* missing or invalid constant  */
,4,9,10,2,69
/* Ew.dDe format code is not FORTRAN 77 standard  */
,6,105,4,12,1,0,17
/* missing decimal point  */
,2,9,137
/* missing or invalid edit descriptor in format string  */
,8,9,10,2,13,22,5,4,83
/* unrecognizable edit descriptor in format string  */
,6,179,13,22,5,4,83
/* invalid repeat specification  */
,3,2,82,24
/* $ or \ format code is not FORTRAN 77 standard  */
,8,89,10,118,4,12,1,0,17
/* invalid field modifier  */
,3,2,30,158
,0
/* repeat specification not allowed for this format code  */
,8,82,24,0,11,32,173,4,12
,0
/* no closing quote on apostrophe edit descriptor  */
,6,77,132,78,125,13,22
/* field count greater than 256 is invalid  */
,6,30,135,48,94,1,2
/* invalid field width specification  */
,4,2,30,180,24
/* Z format code is not FORTRAN 77 standard  */
,6,117,4,12,1,0,17
/* FORMAT statement exceeds allotted storage size  */
,4,59,16,142,53
/* format specification not allowed on input  */
,6,4,24,0,11,78,33
/* FORMAT missing repeatable edit descriptor  */
,5,59,9,163,13,22
/* missing constant before X edit descriptor, 1 assumed  */
,7,9,69,130,61,13,139,66
/* Ew.dQe format code is not FORTRAN 77 standard  */
,6,106,4,12,1,0,17
/* Qw.d format code is not FORTRAN 77 standard  */
,6,113,4,12,1,0,17
};
static const char __FAR Msg5888[] = {
/* BACKSPACE statement requires sequential access mode  */
 6,97,16,15,36,18,76
/* input/output is already active  */
,4,14,1,63,122
/* ENDFILE statement requires sequential access mode  */
,6,104,16,15,36,18,76
/* formatted connection requires formatted input/output statements  */
,6,47,68,15,47,14,37
/* unformatted connection requires unformatted input/output statements  */
,6,55,68,15,55,14,37
/* REWIND statement requires sequential access  */
,5,114,16,15,36,18
/* bad character in input field  */
,5,129,43,5,33,30
/* BLANK specifier requires FORM specifier to be 'FORMATTED'  */
,8,98,3,15,108,3,7,20,90
/* system file error - %s1  */
,5,172,8,29,38,26
/* format specification does not match data type  */
,7,4,24,27,0,75,21,54
/* input item does not match the data type of list variable  */
,11,33,150,27,0,75,86,21,54,6,154,56
/* internal file is full  */
,4,148,8,1,145
/* RECL specifier is invalid  */
,4,60,3,1,2
/* invalid STATUS specifier in CLOSE statement  */
,6,2,41,3,5,102,16
/* unit specified is not connected  */
,4,87,1,0,133
/* attempt to perform data transfer past end of file  */
,7,42,7,160,21,175,6,8
/* invalid RECL specifier/ACCESS specifier combination  */
,5,2,60,165,3,44
/* REC specifier required in direct access input/output statements  */
,8,40,3,164,5,140,18,14,37
/* REC specifier not allowed in sequential access input/output statements  */
,9,40,3,0,11,5,36,18,14,37
/* %s1 specifier may not change in a subsequent OPEN statement  */
,8,26,3,155,0,131,5,119,16
/* invalid STATUS specifier for given file  */
,6,2,41,3,32,146,8
/* invalid STATUS specifier/FILE specifier combination  */
,5,2,41,166,3,44
/* record size exceeded during unformatted input/output  */
,6,35,53,45,28,55,14
/* unit specified does not exist  */
,4,87,27,0,72
/* REC specifier is invalid  */
,4,40,3,1,2
/* UNIT specifier is invalid  */
,4,115,3,1,2
/* formatted record or format edit descriptor is too large for record size  */
,11,47,35,10,4,13,22,1,174,32,35,53
/* illegal '%s1=' specifier  */
,2,147,3
/* invalid CARRIAGECONTROL specifier/FORM specifier combination  */
,4,2,100,3,44
/* i/o operation not consistent with file attributes  */
,7,49,80,0,134,88,8,128
/* symbol %s1 not found in NAMELIST  */
,6,170,26,0,144,5,112
/* syntax error during NAMELIST-directed input  */
,5,171,29,28,39,33
/* subscripting error during NAMELIST-directed i/o  */
,5,169,29,28,39,49
/* substring error during NAMELIST-directed i/o  */
,5,85,29,28,39,49
/* BLOCKSIZE specifier is invalid  */
,4,99,3,1,2
/* invalid operation for files with no record structure  */
,8,2,80,32,143,88,77,35,168
/* integer overflow converting character data to integer  */
,7,34,51,70,43,21,7,34
/* range exceeded converting character data to floating-point  */
,7,52,45,70,43,21,7,31
};
static const char __FAR Msg6144[] = {
/* floating-point divide by zero  */
 3,31,71,25
/* floating-point overflow  */
,2,31,51
/* floating-point underflow  */
,2,31,177
/* integer divide by zero  */
,3,34,71,25
/* program interrupted from keyboard  */
,4,81,149,73,151
/* integer overflow  */
,2,34,51
};
static const char __FAR Msg6400[] = {
/* argument must be greater than zero  */
 5,19,23,20,48,25
/* absolute value of argument to arcsine, arccosine must not exceed one  */
,9,121,6,19,7,126,23,0,141,79
/* argument must not be negative  */
,5,19,23,0,20,159
/* argument(s) must not be zero  */
,5,127,23,0,20,25
/* argument of CHAR must be in the range zero to 255  */
,11,19,6,101,23,20,5,86,52,25,7,93
,0
,0
,0
/* length of ICHAR argument greater than one  */
,6,152,6,109,19,48,79
};
static const char __FAR Msg6912[] = {
 0
/* out of memory  */
,3,50,6,156
,0
/* attempt to deallocate an unallocated array or character*(*) variable  */
,9,42,7,136,64,176,65,10,67,56
/* attempt to allocate an already allocated array or character*(*) variable  */
,10,42,7,123,64,63,124,65,10,67,56
};
static const char __FAR Msg7168[] = {
 0
/* missing or misplaced opening parenthesis  */
,3,9,10,157
,0
/* unmatched parentheses  */
,1,178
};
static const char __FAR Msg9216[] = {
 0
,0
/* subscript expression out of range; %s1 does not exist  */
,9,84,46,50,6,161,26,27,0,72
/* substring expression (%i1:%i2) is out of range  */
,7,85,46,91,1,50,6,52
};
static const char __FAR Msg9728[] = {
 0
,0
/* invalid subscript expression  */
,3,2,84,46
,0
,0
,0
,0
,0
/* limit of 65535 elements per dimension has been exceeded  */
,4,153,6,95,45
};
static const char __FAR Msg11008[] = {
 0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
/* - Executing line %u1 in file %s2  */
,6,38,107,74,5,8,58
/* - Called from line %u1 in file %s2  */
,7,38,103,73,74,5,8,58
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0
,0