Google
 

Trailing-Edge - PDP-10 Archives - BB-4157E-BM - fortran-compiler/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) 1973,1981 BY DIGITAL EQUIPMENT CORPORATION
!AUTHOR: F.J. INFANTE, D. B. TOLMAN/MD/DCE/SJW/TFV/EGM/EDS/AHM

MODULE ERROUT(RESERVE(0,1,2,3),SREG=#17,VREG=#15,FREG=#16,DREGS=4,GLOROUTINES)=
BEGIN

GLOBAL BIND ERROUV = 6^24 + 0^18 + 63;		! Version Date:	25-Sep-81

%(

***** 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 '

***** 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 PARAMETER, IF PRESENT, WOULD FOR MOST ERROR
!MESSAGES BE THE DECIMAL LINE NUMBER ON WHICH THE ERROR OCCURED. THE THIRD
!AND SUBSEQUENT PARAMETERS COULD BE A DECIMAL NUMBER OR THE NAME (ADDRESS)
!OF A STRING OF ASCII CHARACTERS ENDING WITH "?0". THE NUMBER AND TYPE OF
!PARAMETERS FOLLOWING THE FIRST ARE DETERMINED SOLELY BY THE REQUIREMENTS
!OF THE ERROR MESSAGE.
!
! REFER TO FATLERR AND WARNERR ROUTINES FOR FURTHER INFORMATION
!
!------------------------------------------------------------------------------------------------------------------


	BIND ERROR=PLIT( ERRMSG GLOBALLY NAMES

	% FIRST THE WARNING MESSAGES%


![1066] Alter all error string lines, removing the ?A after ?E.

%24%	E24 GLOBALLY INDEXES
		'ZMT?E Size modifier ?D 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 does not equal the number of constants in DATA statement?0',
%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
		'SID?E Slash (/) in Dimension Bound - use colon (:) instead?0',	![741]
%147%	E147 GLOBALLY INDEXES
		'IUA?E Illegal use of an array - use scalar variable instead?0',	![766]
%148%	E148 GLOBALLY INDEXES
		'CAO?E Consecutive arithmetic operators illegal?0', ![1043]
%150%	E150 GLOBALLY INDEXES
		'PSR?E Pound sign (#) in random access - use REC= or apostrophe ('') instead?0',	![1061][1132]

	WOPTMSG  GLOBALLY INDEXES  % BEGIN 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 associative variable?0',

	WARMSG  GLOBALLY INDEXES  % END WARNING 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 ?D?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
		'CQL?E No closing quote in literal?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 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
		'DDN?E DO loops too deeply nested - reduce nesting?0',	![674]
%146%	E146 GLOBALLY INDEXES
		'EIL?E Expression illegal in an input list?0',	![765]

%149%	E149 GLOBALLY INDEXES
		'TDO?E ?B type declaration out of order?0',	![1044]

%151%	E151 GLOBALLY INDEXES
		'ITL?E Illegal transfer into loop to label ?A?0',	![1063]

%156%	E156 GLOBALLY INDEXES
		'UEC?E Label ?A previously used in executable context?0', ![1100]
%157%	E157 GLOBALLY INDEXES
		'UFC?E Label ?A previously used in FORMAT context?0', ![1100]
%158%	E158 GLOBALLY INDEXES
		'IVH?E Invalid hollerith constant - 0H?0', ![1107]
%159%	E159 GLOBALLY INDEXES
		'IVC?E Invalid character constant - ''''?0', ![1107]
	0);
END
ELUDOM