Trailing-Edge
-
PDP-10 Archives
-
BB-D480F-SB_FORTRAN10_V10
-
errout.bli
There are 12 other files named errout.bli in the archive. Click here to see a list.
!COPYRIGHT (C) DIGITAL EQUIPMENT CORPORATION 1973, 1985
!ALL RIGHTS RESERVED.
!
!THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED
!ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE
!INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER
!COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY
!OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY
!TRANSFERRED.
!
!THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE
!AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT
!CORPORATION.
!
!DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS
!SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL.
!AUTHOR: F.J. INFANTE, D. B. TOLMAN/MD/DCE/SJW/TFV/EGM/CKS/EDS/AHM/CDM/SRM/RVM/MRB/AlB/MEM/PLB/JB
MODULE ERROUT(RESERVE(0,1,2,3),SREG=#17,VREG=#15,FREG=#16,DREGS=4,GLOROUTINES)=
BEGIN
GLOBAL BIND ERROUV = #10^24 + 0^18 + #2524; ! Version Date: 13-Mar-85
%(
***** 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
1750 MRB 6-May-83
Add E216
***** End V7 Development *****
1776 TFV 9-Sep-83
Add E217 - (NNA) NAMELIST is not allowed in ENCODE and DECODE.
2063 TFV 29-Jun-84
Change E217 so it can be used for NAMELIST I/O with REREAD,
ENCODE, and DECODE.
2077 RJD 11-Feb-85 SPR:10-35087
Check the structure of passed arguments.
***** Begin Version 10 *****
2200 TFV 23-Mar-83
Add E212 (CCN), CHARACTER constant used where numeric expression
required. Add E213 (IQN), INQUIRE - neither UNIT nor FILE
keywords were specified. Add E214 (IQB), INQUIRE - both UNIT
and FILE keywords were specified. Change E210 (NYI) since
INQUIRE is supported. Add E215 (HCN), HOLLERITH constant used
where numeric expression required.
2247 AlB 22-Dec-83
Add E218 through E287 for Compatibility Flagging. These are all
warning messages used by the flagger.
2253 AlB 28-Dec-83
Corrected wording of errors number 270 and 271.
Added error 288.
2255 AlB 29-Dec-83
Added errors 289 and 290 for operands in improper context.
Fixed minor typos causing double spaces in some flagger messages.
2256 AlB 29-Dec-83
Added error E291: "Conflicting INCLUDE switches"
2257 AlB 3-Jan-84
Changed errors 234 and 255 to allow either 'Fortran-77' or 'VAX'.
2261 AlB 5-Jan-84
Reworded E269 slightly, and added E292 "INCLUDE statement".
2270 AlB 17-Jan-84
Removed errors E275 and E277 because they were redundant.
Reworded E279 to make it more inclusive.
2271 AlB 17-Jan-84
Corrected E236 to allow for label number.
Corrected E274 to specify array name.
Corrected E249 to remove spurious '?B' and add 'VAX incompatibility'
Corrected E168 to specify 'non-character' instead of 'numeric',
and to add 'Fortran-77 or VAX:'
Added E293 'Subscript out of range' for EQUIVALENCE list which
contains single subscript for multi-dimensioned array
2274 AlB 24-Jan-84
Reworded E226 to make it more understandable.
Reworded E248 to make it more readable.
Reinstated E275, but with an entirely different meaning: it
worries about VAX and ASSOCIATEVARIABLE on OPEN.
2276 AlB 26-Jan-84
Fixed E238 & E241, which used ?B instead of the correct ?C.
Added E294, E295, E296 and E297.
2322 CDM 14-Mar-84
Fix subscript calculations for /EXTEND. Give array name for
error message E103.
2341 AlB 13-Apr-84
Added E298 'NML= must specify a NAMELIST'.
2370 MEM 14-Jun-84
Changed the ?D on E182 and E183 to ?B, and the ?C on E247 and
E248 to ?B because the long specifiers for open/close/inquire
statements must be printed by passing the address to an asciz
string instead of passing a sixbit string. References in STA1
to E184 have been changed to E299 which is the same as E184 only
it has a ?B instead of a ?D.
2424 MEM 13-Jul-84
Created E300 which is the same as E15 only it has a ?B instead of a ?C.
2430 CDM 18-Jul-84
Have the compiler complain /FLAG for a variable mentioned more
than once in SAVE statements (SAVE A,B,A - A is mentioned
twice).
2447 PLB 10-Aug-84
Changes for nested INCLUDE files: E117 and E120.
2455 MEM 30-Aug-84
Replace all occurrences of VAX with VMS.
2461 CDM 18-Oct-84
Add octal and hexadecimal constants for the Military Standard
MIL-STD-1753 to DATA statements.
Add E302.
2473 CDM 26-Oct-84
Add IMPLICIT NONE for the Military Standard MIL-STD-1753.
Add E303, E304.
2511 MEM 7-Jan-85
Add E305 - same as E196 but takes an ascii argument.
2517 CDM 1-Feb-85
Enhancements to argument checking, upgrading for statement
functions to be up with external routines, and a few bug fixes in
statement functions. Added checks for structure in arguments;
singleton (scalar), array, routine. Added character length
checking in statement functions.
Add E318.
2524 JB 13-Mar-85
Change E292 prefix from INS to INC.
***** End V10 Development *****
***** 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',
%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',
%209% E209 GLOBALLY INDEXES ![1652]
'RIM?E RETURN statement illegal in main program?0', ![1652]
%212% E212 GLOBALLY INDEXES ![2200]
'CCN?E CHARACTER constant used where numeric expression required?0',
%215% E215 GLOBALLY INDEXES ![2200]
'HCN?E HOLLERITH constant used where numeric expression required?0',
%216% E216 GLOBALLY INDEXES ![1750]
'FOO?E Statement function declared out of order or array not dimensioned?0', ![1750]
%218% E218 GLOBALLY INDEXES ![2247]
'AIS?E Extension to Fortran-77: Apostrophe in I/O specifier?0',
%219% E219 GLOBALLY INDEXES ![2247]
'CAP?E Extension to Fortran-77: Consecutive arithmetic operators?0',
%220% E220 GLOBALLY INDEXES ![2247]
'CCC?E?BCarriage control character ?B?0',
%221% E221 GLOBALLY INDEXES ![2247]
'CNS?E Extension to Fortran-77: Concantenation with variable of non-specific length?0',
%222% E222 GLOBALLY INDEXES ![2247]
'COS?E Extension to Fortran-77: Comment on statement?0',
%223% E223 GLOBALLY INDEXES ![2247]
'COV?E Extension to Fortran-77: Assigned variable appears in character expression?0',
%224% E224 GLOBALLY INDEXES ![2247]
'CSM?E Extension to Fortran-77: Comma field separator is missing?0',
%225% E225 GLOBALLY INDEXES ![2247]
'DEB?E Extension to Fortran-77: DEBUG lines?0',
%226% E226 GLOBALLY INDEXES ![2455]
'DFN?E VMS incompatibility: Default file name on VMS differs from Fortran-10/20?0',
%227% E227 GLOBALLY INDEXES ![2247]
'DOW?E Extension to Fortran-77: DO WHILE statement?0',
%228% E228 GLOBALLY INDEXES ![2455]
'DPE?E VMS incompatibility: Different precedence in exponentiation?0',
%229% E229 GLOBALLY INDEXES ![2247]
'DWE?E?BDefault widths with edit descriptor ?B?0',
%230% E230 GLOBALLY INDEXES ![2247]
'DWL?E Extension to Fortran-77: DO without statement label?0',
%231% E231 GLOBALLY INDEXES ![2247]
'EDD?E Extension to Fortran-77: END DO statement?0',
%232% E232 GLOBALLY INDEXES ![2247]
'EDS?E Extension to Fortran-77: DECODE statement?0',
%233% E233 GLOBALLY INDEXES ![2247]
'EDS?E Extension to Fortran-77: ENCODE statement?0',
%234% E234 GLOBALLY INDEXES ![2257]
'EDX?E?BFORMAT edit descriptor ?B?0',
%235% E235 GLOBALLY INDEXES ![2247]
'EOC?E?BExponential operator ^?0',
%236% E236 GLOBALLY INDEXES ![2271]
'EXD?E Extension to Fortran-77: Transfer of control into DO loop at label ?A?0',
%237% E237 GLOBALLY INDEXES ![2247]
'FAR?E Extension to Fortran-77: Format in numeric array?0',
%238% E238 GLOBALLY INDEXES ![2276]
'FIF?E Extension to Fortran-77: ?C is not an intrinsic function in Fortran-77?0',
%239% E239 GLOBALLY INDEXES ![2247]
'FIN?E Extension to Fortran-77: FIND statement?0',
%240% E240 GLOBALLY INDEXES ![2455]
'FMT?E VMS incompatibility: Keyword FMT instead of NML?0',
%241% E241 GLOBALLY INDEXES ![2276]
'FNG?E Extension to Fortran-77: ?C is not a generic function in Fortran-77?0',
%242% E242 GLOBALLY INDEXES ![2455]
'HCP?E VMS incompatibility: Hollerith constant padded with spaces?0',
%243% E243 GLOBALLY INDEXES ![2247]
'HCU?E Extension to Fortran-77: Hollerith constant?0',
%244% E244 GLOBALLY INDEXES ![2455]
'INS?E VMS incompatibility: /NOCREF switch?0',
%245% E245 GLOBALLY INDEXES ![2455]
'INS?E VMS incompatibility: /CREF switch?0',
%246% E246 GLOBALLY INDEXES ![2455]
'INS?E VMS incompatibility: Default for VMS is /NOLIST?0',
%247% E247 GLOBALLY INDEXES ![2370]
'KWU?E?BKeyword ?B?0',
%248% E248 GLOBALLY INDEXES ![2370]
'KWV?E?BKeyword value for ?B?0',
%249% E249 GLOBALLY INDEXES ![2455]
'LNE?E VMS incompatibility: Logical and numeric variables EQUIVALENCE-d?0',
%250% E250 GLOBALLY INDEXES ![2455]
'LOL?E VMS incompatibility: List of labels?0',
%251% E251 GLOBALLY INDEXES ![2247]
'LSP?E Extension to Fortran-77: ?B length specifier?0',
%252% E252 GLOBALLY INDEXES ![2247]
'MLN?E?BMixing logical and numeric?0',
%253% E253 GLOBALLY INDEXES ![2247]
'MSL?E?BMulti-statement line?0',
%254% E254 GLOBALLY INDEXES ![2247]
'NAM?E Extension to Fortran-77: NAMELIST statement?0',
%255% E255 GLOBALLY INDEXES ![2257]
'NDP?E?BNo decimal places with edit descriptor ?B?0',
%256% E256 GLOBALLY INDEXES ![2247]
'NEC?E Extension to Fortran-77: Numeric expression in character context?0',
%257% E257 GLOBALLY INDEXES ![2247]
'NIB?E Extension to Fortran-77: Non-integer substring bounds?0',
%258% E258 GLOBALLY INDEXES ![2247]
'NIG?E Extension to Fortran-77: Non-integer as index to computed GOTO?0',
%259% E259 GLOBALLY INDEXES ![2247]
'NIK?E Extension to Fortran-77: Non-integer used with ?B?0',
%260% E260 GLOBALLY INDEXES ![2247]
'NIS?E Extension to Fortran-77: Non-integer subscript?0',
%261% E261 GLOBALLY INDEXES ![2247]
'NIX?E Extension to Fortran-77: Non-integer as index to RETURN?0',
%262% E262 GLOBALLY INDEXES ![2247]
'NLK?E Extension to Fortran-77: Use of NAMELIST?0',
%263% E263 GLOBALLY INDEXES ![2455]
'NPC?E VMS incompatibility: Null padding before ?B?0',
%264% E264 GLOBALLY INDEXES ![2247]
'NPP?E Extension to Fortran-77: No parentheses around PARAMETER list?0',
%265% E265 GLOBALLY INDEXES ![2247]
'NSC?E?BNon-standard character in column 1?0',
%266% E266 GLOBALLY INDEXES ![2247]
'OCU?E?BOctal constant?0',
%267% E267 GLOBALLY INDEXES ![2247]
'OIO?E Extension to Fortran-77: ?B statement?0',
%268% E268 GLOBALLY INDEXES ![2247]
'OIO?E?B?B statement?0',
%269% E269 GLOBALLY INDEXES ![2261]
'PWS?E?BPRINT (Specifiers) statement?0',
%270% E270 GLOBALLY INDEXES ![2253]
'RLC?E Extension to Fortran-77: & used with return label?0',
%271% E271 GLOBALLY INDEXES ![2253]
'RLC?E?B$ used with return label?0',
%272% E272 GLOBALLY INDEXES ![2247]
'SBC?E Extension to Fortran-77: Substring bounds not constant?0',
%273% E273 GLOBALLY INDEXES ![2455]
'SEP?E VMS incompatibility: ?C is same as program name or entry point?0',
%274% E274 GLOBALLY INDEXES ![2271]
'SMD?E Extension to Fortran-77: Single subscript with multi-dimensioned array ?C?0',
%275% E275 GLOBALLY INDEXES ![2455]
'ANS?E VMS incompatibility: ASSOCIATEVARIABLE not set by VMS on OPEN?0',
%276% E276 GLOBALLY INDEXES ![2455]
'SNN?E VMS incompatibility: ?C is same as NAMELIST name?0',
!%277% E277 GLOBALLY INDEXES ![2455]
! 'SPN?E VMS incompatibility: ?C is the same as PARAMETER name?0',
%278% E278 GLOBALLY INDEXES ![2247]
'SRO?E?BSymbolic relational operator ?B?0',
%279% E279 GLOBALLY INDEXES ![2455]
'SVN?E VMS incompatibility: ?C is same as variable or function name?0',
%280% E280 GLOBALLY INDEXES ![2247]
'TLF?E?BTwo-branch logical IF?0',
%281% E281 GLOBALLY INDEXES ![2455]
'VFS?E VMS incompatibility: ?C is a Fortran-supplied routine on VMS?0',
%282% E282 GLOBALLY INDEXES ![2455]
'VGF?E VMS incompatibility: ?C is a generic function on VMS?0',
%283% E283 GLOBALLY INDEXES ![2455]
'VIF?E VMS incompatibility: ?C is an intrinsic function on VMS?0',
%284% E284 GLOBALLY INDEXES ![2455]
'VNG?E VMS incompatibility: ?C is not a generic function on VMS?0',
%285% E285 GLOBALLY INDEXES ![2247]
'WDU?E?BWRITE with default unit?0',
%286% E286 GLOBALLY INDEXES ![2247]
'XEN?E?B?B with external name?0',
%287% E287 GLOBALLY INDEXES ![2247]
'XOR?E Extension to Fortran-77: Logical .XOR. operator?0',
%288% E288 GLOBALLY INDEXES ![2253]
'RLX?E?BReturn label ?B?0',
%289% E289 GLOBALLY INDEXES ![2255]
'LNC?E?BNon-numeric operand in numeric context?0',
%290% E290 GLOBALLY INDEXES ![2255]
'NLC?E?BNon-logical operand in logical context?0',
%291% E291 GLOBALLY INDEXES ![2256]
'CIS?E Conflicting INCLUDE switches?0',
%292% E292 GLOBALLY INDEXES ![2524]
'INC?E Extension to Fortran-77: INCLUDE statement?0',
%293% E293 GLOBALLY INDEXES ![2271]
'SOR?E Subscript out of range for array ?C?0',
%294% E294 GLOBALLY INDEXES ![2276]
'FNS?E Extension to Fortran-77: ?C is not a Fortran-77 subroutine?0',
%295% E295 GLOBALLY INDEXES ![2455]
'VSD?E VMS incompatibility: Subroutine ?C may differ?0',
%296% E296 GLOBALLY INDEXES ![2455]
'VNS?E VMS incompatibility: ?C is not a VMS-supplied subroutine?0',
%297% E297 GLOBALLY INDEXES ![2455]
'VNF?E VMS incompatibility: ?C is not an intrinsic function on VMS?0',
%301% E301 GLOBALLY INDEXES ![2430]
'ADS?E ?B Variable ?D already declared in SAVE statement?0', ![2430]
%2461% E302 GLOBALLY INDEXES
%2461% 'OHC?E ?B Octal or hexadecimal constant?0',
%2473% E303 GLOBALLY INDEXES
%2473% 'IMN?E ?B IMPLICIT NONE?0',
%2473% E304 GLOBALLY INDEXES
%2473% 'MBD?E IMPLICIT NONE - ?D must be explicitly declared?0',
%2517% E318 GLOBALLY INDEXES
%2517% 'LMA?E Length mismatch for argument ?F of statement function ?D?0',
%2077% E319 GLOBALLY INDEXES
%2077% 'ASF?E Illegal argument ?F for statement function ?D?0',
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 ![2271]
'CNM?E?BCharacter and non-character variables ?B?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',
%300% E300 GLOBALLY INDEXES ![2424]
'ISN?E ?B 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 for array ?C?0', ![2322]
%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 path specification?0', ![2447]
%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 statement nested too deeply?0', ![2447]
%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 ![2368]
'OBO?E ?B may only be specified once?0',
%183% E183 GLOBALLY INDEXES ![2368]
'UKW?E Unrecognized keyword ?B?0',
%184% E184 GLOBALLY INDEXES
'IXS?E Illegal ?D specifier?0',
%299% E299 GLOBALLY INDEXES ![2370]
'IXS?E Illegal ?B 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 Not yet implemented?0',
%211% E211 GLOBALLY INDEXES
'IFS?E Illegal format specifier?0',
%213% E213 GLOBALLY INDEXES ![2200]
'IQN?E INQUIRE - neither UNIT nor FILE keywords were specified?0',
%214% E214 GLOBALLY INDEXES ![2200]
'IQB?E INQUIRE - both UNIT and FILE keywords were specified?0',
%217% E217 GLOBALLY INDEXES ![2063]
'NNA?E NAMELIST is not allowed in ?B?0',
%298% E298 GLOBALLY INDEXES ![2341]
'NNN?E NML= must specify a NAMELIST?0',
%305% E305 GLOBALLY INDEXES ![2511]
'MST?E ?B must be ?B?0',
0);
END
ELUDOM