Trailing-Edge
-
PDP-10 Archives
-
FORTRAN-10_V7wLink_Feb83
-
errout.bli
There are 12 other files named errout.bli in the archive. Click here to see a list.
!THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
! OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
!COPYRIGHT (C) DIGITAL EQUIPMENT CORPORATION 1973, 1983
!AUTHOR: F.J. INFANTE, D. B. TOLMAN/MD/DCE/SJW/TFV/EGM/CKS/EDS/AHM/CDM/SRM/RVM
MODULE ERROUT(RESERVE(0,1,2,3),SREG=#17,VREG=#15,FREG=#16,DREGS=4,GLOROUTINES)=
BEGIN
GLOBAL BIND ERROUV = 7^24 + 0^18 + #1702; ! Version Date: 9-Dec-82
%(
***** Begin Revision History *****
ERROV F10V SPR COMMENT
----- ---- --- -------
32 231 ----- CHANGE TEXT OF WARNING MESSAGE (77)
33 265 15946 ADD DOUBLE DATA INITIALIZATION MESSAGE
34 336 17259 ADD NAMELIST WITH I/O LIST ERROR
35 451 19610 FIX SPELLING OF ERROR MESSAGE (TO BECOMES TOO)
36 460 19477 ADD E141
37 443 QA656 ADD E140 (ERROVD)
38 461 19477 ADD E142 (ERROVG)
39 511 ----- FIX E37,E79,E100 TO AGREE WITH ERROVD
FIX AND MOVE E140 FROM [443]
FIX SPELLING IN E74
***** Begin Version 5A *****
40 531 20323 ADD E143 (WARNING)
***** Begin Version 5B *****
41 674 11803 ADD E144 (FATAL) DO LOOPS TOO DEEPLY NESTED
42 741 ----- ADD E145 (WARNING) FOR / IN DIMENSION STMNT
43 747 ----- MAJOR REVISION - MAKE ERROR MESSAGES LOWER CASE
PLUS CLEAN UP THE ROUTINE A BIT
***** Begin Version 6 *****
44 765 DCE 13-May-80
Add error message for expression in input list - E146.
45 766 DCE 13-May-80
Add error message for illegal usage of an array to be used for the
following cases:
GO TO A(I) and
ASSIGN 10 TO A(I)
where A is dimensioned.
46 1005 TFV 1-Jul-80
Fix E94 to say OPEN/CLOSE parameter instead of just OPEN
47 1021 TFV 27-Oct-80
Fix E0, E2, and E3 to be found when expecting... (Remove 'a'.)
48 1043 EGM 19-Jan-81 20-15466
Add E148 warning for consecutive arithmetic operators
49 1044 EGM 20-Jan-81 20-15467
Add E149 fatality for type declaration statement out of order.
50 1061 DCE 9-Apr-81 -----
Add E150 warning for pound sign used in random I/O statement.
51 1063 DCE 16-Apr-81 QAR5631
Add E151 error for illegal transfer into DO loop.
52 1066 EGM 12-May-81 Q10-05202
Surplant double LINE:xxxx control characters with just one.
55 1100 EDS 9-Jun-81 10-31141
Add E156 and E157 messages.
56 1107 TFV 14-Jul-81 ------
Add E158 (IVH) for invalid hollerith constant 0H. Add E159 (IVC)
for invalid character constant ''.
63 1132 AHM 22-Sep-81 Q10-06347
Change E150 (edit 1061) to refer to REC= as well as '
***** Begin Version 6A *****
1157 EGM 11-Jun-82
ALter error 57 (FTNMVC) to indicate whether the data item list is
longer or shorter than the constant list.
***** Begin Version 7 *****
53 1212 TFV 29-Apr-81 ------
E72 changed to read 'No closing quote in character constant'.
54 1214 CKS 11-May-81
Add E152-E155, messages for illegal uses of IF-THEN-ELSE
57 1237 CKS 20-Jul-81
Add 'block IF' to E75 message
58 1242 CKS 29-Jul-81
Add E160-E161, messages for character constants in DATA statements
59 1244 CKS 2-Aug-81
Add E162, illegal substring
60 1254 CKS 14-Aug-81
Add E163, illegal combination of character and numeric data
61 1260 CKS 14-Sep-81
Add E164, character expr used where numeric expr required
62 1262 CKS 21-Sep-81
Add E165-E168
63 1270 CDM 6-OCT-81
Add E169,E170
64 1402 CKS 23-Oct-81
Add E171-E172
65 1416 CKS 9-Nov-81
Add E173,E175
66 1423 CKS 19-Nov-81
Add E174
67 1430 CKS 3-Dec-81
Add E176
68 CKS 4-Dec-81 *** TEMP ***
Add E177
69 1434 TFV 14-Dec-81
Add error E178 (CNE) for multi-entry function subprograms with both
character and numeric entry points. Add error E179 (CEL) for
multi-entry character function subprograms that have entries with
different lengths. Add E180 (CFL) for character function references
that are length *.
70 1460 SRM 6-Dec-82
Add warning E181 (CHO) for attempt to compile programs with character
data /OPT
71 1461 CKS 20-Jan-82
Fix E167 to have ?D not ?C. (Sixbit quantity, not pointer to sixbit
quantity.) Add variable name to "Can't store character constant in
numeric variable".
72 1465 CKS 22-Jan-82
Add E182-E184. Remove E150.
73 1466 CDM 1-Feb-82
Add E185, E186 for arg checking of statement fucntions.
Move further up so that these don't effect /OPT if given.
74 1467 CDM 2-Feb-82
Add E187, warning for SAVE statement.
Remove it!! 25-Aug-82. It now works.
75 1471 RVM 5-Feb-82
Add E188, general purpose error about internal files.
1510 RVM 14-Mar-82
Add the assumed-size array errors: E189, E190, E191.
1511 CDM 17-March-82
Add SAVE errors E192, E197.
Changed 3-letter pnuemontic to be unique 25-Aug-82.
1513 RVM 18-Mar-82
Change the word "generic" to "intrinsic" in E170.
1474 TFV 25-Mar-82
Add error E193 - (LSC) Length star concatenation not yet
supported in this context.
1522 TFV 29-Mar-82
Consolidate E176 and E165 (substring bound out of range). Add
error E194 - (NLS) xxxxxx may not be declared length star.
Remove E177 (cant concat error).
1527 CKS 1-Apr-82
Add E195-E196 and E198. Change E27 and E50 to use binary numbers (?F)
instead of sixbit (?D) to type character-variable lengths.
1531 CDM 17-May-82
Add E197 for SAVE stmt processing.
1546 CKS 31-May-82
Add E200-E201
1535 CDM 1-June-82
Add E202, E203
1573 CKS 16-Jun-82
Add E204
1575 TFV 7-Jul-82
Add E205 - Size modifier conflict for variable xxx.
1601 CKS 12-Jul-82
Add E206
1620 CKS 24-Aug-82
Add E207-E208
1652 CDM 20-oct-82
Add E209.
1656 CKS 25-Oct-82
Change E198 text.
1660 TFV 1-Nov-82
Change E180 (CFL) to be 'Reference to character function <name>
must have a fixed length'. It was 'References ...'.
1662 TFV 2-Nov-82
Add the error E210 (NYI) 'INQUIRE statement is not yet
implemented.'
1675 RVM 11-Nov-82 Q10-03032
Implement a suggestion to include more information in the
warning message E168.
1702 CKS 9-Dec-82
Add E211
***** End Revision History *****
)%
!-----------------------------------------------------------------------
!
! This routine is called with a variable number of parameters.
! The first parameter is always the error number which is used as
! an index into the error plit. The second and subsequent
! parameters could be a decimal number or the name (address) of a
! string of ASCII or SIXBIT characters ending with "?0". The
! number and type of parameters following the first are determined
! solely by the requirements of the error message. The following
! control characters are used for specifying the additional
! parameters:
!
! ?A - up to 5 decimal digits with leading 0's
! ?B - a pointer to an ASCII string
! ?C - a pointer to a SIXBIT string
! ?D - a SIXBIT string
! ?E - used to print out Line:nnnnn at the start
! of the message
! ?F - Up to 5 decimal digits
!
! Refer to the routines FATLERR, WARNERR, FATLEX, and WARNLEX for
! further information.
!
!-----------------------------------------------------------------------
BIND ERROR = UPLIT(
ERRMSG GLOBALLY NAMES
!***************************************************************
! Warning messages
!***************************************************************
%1066% ! Alter all error string lines, removing the ?A after ?E.
%24% E24 GLOBALLY INDEXES
'ZMT?E Size modifier ?F treated as ?B?0',
%28% E28 GLOBALLY INDEXES
'FNA?E A function without an argument list?0',
%37% E37 GLOBALLY INDEXES
'DIS?E Opt - program is disconnected - optimization discontinued?0',
%57% E57 GLOBALLY INDEXES
'MVC?E Number of variables ?B the number of constants in DATA statement?0', ![1157]
%62% E62 GLOBALLY INDEXES
'AGA?E Opt - object variable, of assigned GOTO without optional list, was never assigned?0',
%64% E64 GLOBALLY INDEXES
'CUO?E Constant underflow or overflow?0',
%69% E69 GLOBALLY INDEXES
'NED?E No END statement in program?0',
%76% E76 GLOBALLY INDEXES
'LID?E Identifier ?D more than 6 characters?0',
%78% E78 GLOBALLY INDEXES
'WOP?E Opt - warnings given in Phase 1. Optimized code may be incorrect?0',
%79% E79 GLOBALLY INDEXES
'VNI?E Opt - variable ?C is not initialized?0',
%88% E88 GLOBALLY INDEXES
'RDI?E Attempt to redeclare implicit type?0',
%98% E98 GLOBALLY INDEXES
'CTR?E Complex terms used in a relational other than EQ or NE?0',
%99% E99 GLOBALLY INDEXES
'CAI?E COMPLEX expression used in arithmetic IF?0',
%100% E100 GLOBALLY INDEXES
'IFL?E Opt - infinite loop. Optimization discontinued?0',
%105% E105 GLOBALLY INDEXES
'ICD?E Inaccessible code. Statement deleted?0',
%107% E107 GLOBALLY INDEXES
'SOD?E ?B statement out of order?0',
%109% E109 GLOBALLY INDEXES
'ICC?E Illegal character, continuation field of initial line?0',
%111% E111 GLOBALLY INDEXES
'XCR?E Extraneous carriage return?0',
%112% E112 GLOBALLY INDEXES
'ICS?E Illegal character in line sequence number?0',
%129% E129 GLOBALLY INDEXES
'FMR?E Multiple RETURNs defined in a FUNCTION?0',
%131% E131 GLOBALLY INDEXES
'VND?E FUNCTION return value is never defined?0',
%133% E133 GLOBALLY INDEXES
'NOD?E Global optimization not supported with /DEBUG - /OPT ignored?0',
%134% E134 GLOBALLY INDEXES
'PPS?E PROGRAM statement parameters ignored?0',
%135% E135 GLOBALLY INDEXES
'DXB?E DATA statement exceeds bounds of array ?D?0',
%139% E139 GLOBALLY INDEXES
'VAI?E ?C already initialized?0',
%145% E145 GLOBALLY INDEXES ![741]
'SID?E Slash (/) in Dimension Bound - use colon (:) instead?0',
%147% E147 GLOBALLY INDEXES ![766]
'IUA?E Illegal use of an array - use scalar variable instead?0',
%148% E148 GLOBALLY INDEXES ![1043]
'CAO?E Consecutive arithmetic operators illegal?0',
%170% E170 GLOBALLY INDEXES ![1513]
'DII?E Previous declaration of intrinsic function ?C is ignored?0',
%181% E181 GLOBALLY INDEXES ![1460]
'CHO?E Global optimization not yet supported with character data - /OPT ignored?0',
%185% E185 GLOBALLY INDEXES
'WNA?E Wrong number of arguments for statement function ?D?0',
%186% E186 GLOBALLY INDEXES
'IAT?E Illegal type for argument ?F of statement function ?D?0',
%198% E198 GLOBALLY INDEXES
'TSI?E Type of symbolic constant ?D ignored?0',
%209% E209 GLOBALLY INDEXES ![1652]
'RIM?E RETURN statement illegal in main program?0', ![1652]
WOPTMSG GLOBALLY INDEXES
!***************************************************************
! Warnings which may affect optimized code
!***************************************************************
%77% E77 GLOBALLY INDEXES
'DIM?E Possible DO index modification inside loop?0',
%140% E140 GLOBALLY INDEXES
'IDN?E Opt - illegal DO nesting - optimization discontinued?0',
%143% E143 GLOBALLY INDEXES
'PAV?E PARAMETER used as associate variable?0',
%168% E168 GLOBALLY INDEXES
'CNM?E Character and numeric variables ?B?0', ![1675]
%202% E202 GLOBALLY INDEXES
'ACB?E Argument out of range for CHAR, high order bits ignored?0',
%203% E203 GLOBALLY INDEXES
'AIL?E Illegal length argument for ICHAR, first character used?0',
WARMSG GLOBALLY INDEXES ! End warning messages
!*************************************************************
! Fatal error messages
!*************************************************************
%0% E0 GLOBALLY INDEXES
'FWE?E Found ?B when expecting ?B?0',
%2% E2 GLOBALLY INDEXES
'FEE?E Found ?B when expecting either ?B?0',
%3% E3 GLOBALLY INDEXES
'FEE?E or ?B?0',
%4% E4 GLOBALLY INDEXES
'USI?E ?B ?C used incorrectly?0',
%7% E7 GLOBALLY INDEXES
'ICL?E Illegal character ?B in label field?0',
%8% E8 GLOBALLY INDEXES
'IAC?E Illegal ASCII character ?B in source?0',
%9% E9 GLOBALLY INDEXES
'UMP?E Unmatched parentheses?0',
%10% E10 GLOBALLY INDEXES
'NRC?E Statement not recognized?0',
%12% E12 GLOBALLY INDEXES
'MSP?E Statement name misspelled?0',
%15% E15 GLOBALLY INDEXES
'ISN?E ?C is not ?B?0',
%17% E17 GLOBALLY INDEXES
'IDT?E Illegal or misspelled data type?0',
%18% E18 GLOBALLY INDEXES
'IIP?E Illegal implicit specification parameter?0',
%19% E19 GLOBALLY INDEXES
'LLS?E Label too large or too small?0',
%20% E20 GLOBALLY INDEXES
'LAD?E Label ?A already defined at line: ?A?0',
%21% E21 GLOBALLY INDEXES
'DIA?E DO index variable ?C is already active?0',
%23% E23 GLOBALLY INDEXES
'ILF?E Illegal statement after logical IF?0',
%26% E26 GLOBALLY INDEXES
'ISD?E Illegal subscript expression in DATA statement?0',
%27% E27 GLOBALLY INDEXES
'AWN?E Array reference ?C has wrong number of subscripts?0',
%29% E29 GLOBALLY INDEXES
'IDN?E DO loop at line: ?A is illegally nested?0',
%31% E31 GLOBALLY INDEXES
'DTI?E The dimensions of ?C must be of the type integer?0',
%33% E33 GLOBALLY INDEXES
'EXB?E EQUIVALENCE extends COMMON block ?C backwards?0',
%34% E34 GLOBALLY INDEXES
'ABD?E ?C has already been defined ?B?0',
%38% E38 GLOBALLY INDEXES
'IDV?E Implied DO index is not a variable?0',
%39% E39 GLOBALLY INDEXES
'TFL?E Too many FORMAT labels specified?0',
%42% E42 GLOBALLY INDEXES
'ECT?E Attempt to enter ?C into COMMON twice?0',
%44% E44 GLOBALLY INDEXES
'PIC?E The DO parameters of ?C must be integer constants?0',
%47% E47 GLOBALLY INDEXES
'RFC?E ?C is a recursive function call?0',
%48% E48 GLOBALLY INDEXES
'MCE?E More than 1 COMMON variable in EQUIVALENCE group?0',
%49% E49 GLOBALLY INDEXES
'IED?E Inconsistent EQUIVALENCE declaration?0',
%50% E50 GLOBALLY INDEXES
'IZM?E Illegal ?B size modifier ?F?0',
%51% E51 GLOBALLY INDEXES
'BOV?E Statement too large to classify?0',
%52% E52 GLOBALLY INDEXES
'DVE?E Cannot use dummy variable in EQUIVALENCE?0',
%53% E53 GLOBALLY INDEXES
'VSE?E EQUIVALENCE subscripts must be integer constants?0',
%54% E54 GLOBALLY INDEXES
'NIR?E Repeat count must be an unsigned integer?0',
%55% E55 GLOBALLY INDEXES
'NIU?E Non-integer unit number in I/O statement?0',
%60% E60 GLOBALLY INDEXES
'IXM?E Illegal mixed mode arithmetic?0',
%61% E61 GLOBALLY INDEXES
'CER?E Compiler error in routine ?B?0',
%66% E66 GLOBALLY INDEXES
'DID?E Cannot initialize a dummy parameter in DATA?0',
%67% E67 GLOBALLY INDEXES
'IOD?E Illegal statement used as object of DO?0',
!%68% E68 GLOBALLY INDEXES
! 'DTA?E TERMINAL STATEMENT OF DO HAS ALREADY APPEARED?0',
%70% E70 GLOBALLY INDEXES
'NNF?E No statement number on FORMAT?0',
%71% E71 GLOBALLY INDEXES
'DSF?E Argument ?C is same as FUNCTION name?0',
%72% E72 GLOBALLY INDEXES
%[1212]% 'CQL?E No closing quote in character constant?0',
%74% E74 GLOBALLY INDEXES
'LGB?E Lower bound greater than upper bound for array ?C?0',
%75% E75 GLOBALLY INDEXES
'EID?E ENTRY statement illegal inside a block IF or DO loop?0',
%80% E80 GLOBALLY INDEXES
'IAL?E Incorrect argument type for library function ?C?0',
%81% E81 GLOBALLY INDEXES
'NLF?E Wrong number of arguments for library function ?C?0',
%82% E82 GLOBALLY INDEXES
'LTL?E Too many items in list - reduce number of items?0',
%83% E83 GLOBALLY INDEXES
'LFA?E Label arguments illegal in FUNCTION or array reference?0',
%84% E84 GLOBALLY INDEXES
'DLN?E Optional data value list not supported?0',
%87% E87 GLOBALLY INDEXES
'DDA?E ?D is duplicate dummy argument?0',
%90% E90 GLOBALLY INDEXES
'EDN?E Expression too deeply nested to compile?0',
%91% E91 GLOBALLY INDEXES
'ENF?E Label ?A must refer to an executable statement, not a FORMAT?0',
%93% E93 GLOBALLY INDEXES
'VNA?E Subscripted variable in EQUIVALENCE, but not an array?0',
%94% E94 GLOBALLY INDEXES
'OPW?E OPEN/CLOSE parameter ?C is of wrong type?0',
%95% E95 GLOBALLY INDEXES
'NEX?E No exponent after D or E in constant?0',
%96% E96 GLOBALLY INDEXES
'LNI?E List directed I/O with no I/O list?0',
%101% E101 GLOBALLY INDEXES
'LED?E Illegal list directed ?B?0',
%102% E102 GLOBALLY INDEXES
'NIO?E NAMELIST directed I/O with I/O list?0',
%103% E103 GLOBALLY INDEXES
'SOR?E Subscript out of range?0',
%104% E104 GLOBALLY INDEXES
'IID?E Non-integer implied DO index?0',
%108% E108 GLOBALLY INDEXES
'IBK?E Illegal statement in BLOCK DATA subprogram?0',
%110% E110 GLOBALLY INDEXES
'SNL?E ?B statements may not be labeled?0',
%113% E113 GLOBALLY INDEXES
'FNE?E Label ?A must refer to a FORMAT, not an executable statement?0',
%114% E114 GLOBALLY INDEXES
'EIM?E ENTRY statement illegal in main program?0',
%115% E115 GLOBALLY INDEXES
'IDS?E Implicit DO indices may not be subscripted?0',
%116% E116 GLOBALLY INDEXES
'IIS?E Incorrect INCLUDE switch?0',
%117% E117 GLOBALLY INDEXES
'IVP?E Invalid PPN?0',
%118% E118 GLOBALLY INDEXES
'NFS?E No file name specified?0',
%119% E119 GLOBALLY INDEXES
'CFF?E Cannot find file?0',
%120% E120 GLOBALLY INDEXES
'INN?E INCLUDE statements may not be nested?0',
%121% E121 GLOBALLY INDEXES
'CSF?E Illegal statement function reference in CALL statement?0',
%122% E122 GLOBALLY INDEXES
'DFD?E Double ?D name illegal?0',
%123% E123 GLOBALLY INDEXES
'IUT?E Program units may not be terminated within INCLUDEd files?0',
%124% E124 GLOBALLY INDEXES
'IFD?E INCLUDEd files must reside on disk?0',
%125% E125 GLOBALLY INDEXES
'SAD?E Array ?D - signed dimensions may appear only as constant range limits?0',
%126% E126 GLOBALLY INDEXES
'DFC?E Variable dimension ?D must be scalar, defined as formal or in COMMON?0',
%127% E127 GLOBALLY INDEXES
'RIC?E Complex constant cannot be used to represent the real or imaginary part of a complex constant?0',
%128% E128 GLOBALLY INDEXES
'DNL?E Implied DO specification without associated list of variables?0',
%130% E130 GLOBALLY INDEXES
'MWL?E Attempt to define multiple RETURN without formal label arguments?0',
%132% E132 GLOBALLY INDEXES
'NUO?E .NOT. is a unary operator?0',
%136% E136 GLOBALLY INDEXES
'DPR?E Dummy parameter ?D referenced before definition?0',
%137% E137 GLOBALLY INDEXES
'VSO?E Variable dimension allowed in subprograms only?0',
%138% E138 GLOBALLY INDEXES
'IFE?E ?B?0',
%141% E141 GLOBALLY INDEXES
'ATL?E Array ?D too large?0',
%142% E142 GLOBALLY INDEXES
'PTL?E Program too large?0',
%144% E144 GLOBALLY INDEXES ![674]
'DDN?E DO loops too deeply nested - reduce nesting?0',
%146% E146 GLOBALLY INDEXES ![765]
'EIL?E Expression illegal in an input list?0',
%149% E149 GLOBALLY INDEXES ![1044]
'TDO?E ?B type declaration out of order?0',
%151% E151 GLOBALLY INDEXES ![1063]
'ITL?E Illegal transfer into loop to label ?A?0',
%152% E152 GLOBALLY INDEXES
'IND?E Improper nesting: DO at line ?A has not terminated?0',
%153% E153 GLOBALLY INDEXES
'INI?E Improper nesting: IF at line ?A has not terminated?0',
%154% E154 GLOBALLY INDEXES
'NIF?E No matching IF?0',
%155% E155 GLOBALLY INDEXES
'AHE?E IF at line ?A already has ELSE',
%156% E156 GLOBALLY INDEXES ![1100]
'UEC?E Label ?A previously used in executable context?0',
%157% E157 GLOBALLY INDEXES ![1100]
'UFC?E Label ?A previously used in FORMAT context?0',
%158% E158 GLOBALLY INDEXES ![1107]
'IVH?E Invalid hollerith constant - 0H?0',
%159% E159 GLOBALLY INDEXES ![1107]
'IVC?E Invalid character constant - ''''?0',
%160% E160 GLOBALLY INDEXES
'NCC?E Can''t store numeric constant in character variable ?D?0',
%161% E161 GLOBALLY INDEXES
'CSA?E Can''t split string across numeric and character variables?0',
%162% E162 GLOBALLY INDEXES
'SNC?E Substring of non-CHARACTER variable?0',
%163% E163 GLOBALLY INDEXES
'ICN?E Illegal combination of character and numeric data?0',
%164% E164 GLOBALLY INDEXES
'CEN?E Character expression used where numeric expression required?0',
%165% E165 GLOBALLY INDEXES ![1522]
'IOR?E Substring bound out of range?0',
%166% E166 GLOBALLY INDEXES
'NWB?E Numeric variable must be aligned on word boundary?0',
%167% E167 GLOBALLY INDEXES
'NWW Numeric variable ?D must be aligned on word boundary?0',
%169% E169 GLOBALLY INDEXES ![1270]
'OAG?E Octal or logical argument illegal to generic function?0',
%171% E171 GLOBALLY INDEXES
'LND?E Label ?A must refer to a?B, not a declaration?0',
%172% E172 GLOBALLY INDEXES
'STD?E Statement ?A is a declaration?0',
%173% E173 GLOBALLY INDEXES
'IBD?E Illegal substring bound in DATA statement?0',
%174% E174 GLOBALLY INDEXES
'FID?E Can''t initialize character function name ?C?0',
%175% E175 GLOBALLY INDEXES
'ZLD?E Zero-trip DO loop illegal in DATA statement?0',
%178% E178 GLOBALLY INDEXES
'CNE?E Character and numeric entry points cannot be mixed?0',
%179% E179 GLOBALLY INDEXES
'CEL?E Character entry points must have the same length?0',
%180% E180 GLOBALLY INDEXES ![1660] Change references to reference
'CFL?E Reference to character function ?D must have a fixed length?0',
%182% E182 GLOBALLY INDEXES
'OBO?E ?D may only be specified once?0',
%183% E183 GLOBALLY INDEXES
'UKW?E Unrecognized keyword ?D?0',
%184% E184 GLOBALLY INDEXES
'IXS?E Illegal ?D specifier?0',
%188% E188 GLOBALLY INDEXES ![1471]
'WIF?E ?B is illegal with internal files?0',
%189% E189 GLOBALLY INDEXES ![1510]
'OUB?E Only upper bound of last dimension of ?C may be asterisk?0',
%190% E190 GLOBALLY INDEXES ![1510]
'AOA?E Assumed-size arrays only allowed in subprograms?0',
%191% E191 GLOBALLY INDEXES ![1510]
'ASA?E Assumed-size arrays cannot be used ?B?0',
%192% E192 GLOBALLY INDEXES ![1511]
'ISS?E ?B ?D illegal in SAVE statement?0',
%194% E194 GLOBALLY INDEXES ![1522]
'NLS?E ?D may not be declared length star?0',
%195% E195 GLOBALLY INDEXES
'CEX?E Constant or constant expression required?0',
%196% E196 GLOBALLY INDEXES
'MST?E ?D must be ?B?0',
%197% E197 GLOBALLY INDEXES ![1531]
'ECS?E ?D EQUIVALENCE-d to COMMON is illegal in SAVE statement?0',
%199% E199 GLOBALLY INDEXES
'EXI?E Exponent must be integer?0',
%200% E200 GLOBALLY INDEXES
'RUS?E Relational expression illegal as UNIT specifier?0',
%201% E201 GLOBALLY INDEXES
'UNS?E UNIT may not be specified?0',
%204% E204 GLOBALLY INDEXES
'NMD?E No matching DO?0',
%205% E205 GLOBALLY INDEXES ![1575]
'SMC?E Size modifier conflict for variable ?D?0',
%206% E206 GLOBALLY INDEXES
'IOC?E Illegal operator for character data?0',
%207% E207 GLOBALLY INDEXES
'ION?E Numeric operand of concatenation operator?0',
%208% E208 GLOBALLY INDEXES
'IAN?E Illegal assignment between character and numeric data?0',
%210% E210 GLOBALLY INDEXES ![1662]
'NYI?E INQUIRE statement is not yet implemented?0',
%211% E211 GLOBALLY INDEXES
'IFS?E Illegal format specifier?0',
0);
END
ELUDOM