Google
 

Trailing-Edge - PDP-10 Archives - FORTRAN-10_Alpha_31-jul-86 - errovr.bli
There are 6 other files named errovr.bli in the archive. Click here to see a list.
!COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1974, 1986
!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: NORMA ABEL / D.TOLMAN/DCE/EGM/CKS/CDM/AlB/MEM

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


GLOBAL BIND ERRRV = #11^24 + 0^18 + #4527;	! Version Date:	31-JAN-85


%(

***** Begin Revision History *****

***** Begin Version 5B *****

1	723	-----	ADD /NOWARN: SELECTIVITY
2	741	-----	ADD E145
3	747	-----	MAKE ERROR MESSAGES LOWER CASE

***** Begin Version 6 *****

4	1066	EGM	12-May-81	Q10-05202
	Surplant double LINE:xxxx control characters with just one.

6	1115	EGM	30-Jul-81	--------
	Remove error binds for /NOWARN selectivity

***** Begin Version 6A *****

1151	EGM	12-Apr-82
	Add error 142, Program too large

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

5	1242	CKS	29-Jul-81
	Add E160-E161, messages for character constants in DATA statements.
	Add E163, illegal combination of character and numeric data.

6	1262	CKS	21-Sep-81
	Add E165-E168

7	1416	CKS/CDM	18-Dec-81
	Add E173, E175

10	1431	CKS/CDM	18-Dec-81
	Add E177

1474	TFV	25-Mar-82
	Add error  E193  -  (LSC)  Length  star  concatenation  not  yet
	supported in this context.

1511	CDM	2-Apr-82
	Add E192.  Also, in E167,  change ?C to ?D  to be the same  as
	ERROUT.BLI.  Add  "s"  to  "backward" to  be  compatable  with
	ERROUT.BLI for E33.

1531	CDM	28-June-82
	Add E197 for SAVE stmt processing.

1535	CDM	1-June-82
	Add E202, E203

1601	CKS/CDM	12-Jul-82
	Add E206

1620	CKS/CDM	1-Sept-82
	ADD E208

1675	RVM	11-Nov-82	Q10-03032
	Implement a suggestion to include more information in the
	warning message E168.

***** Begin Version 10 *****

2247	AlB	22-Dec-83
	Add E218 through E287 for Compatibility Flagging. These are all
	warning messages used by the flagger.

2271	AlB	18-Jan-84
	Add E249, E260, E274 and E293, which are used by OUTMOD and ARRXPN.
	Reword E168 slightly ('Non-Character' as opposed to 'numeric')

2322	CDM	14-Mar-84
	Fix subscript  calculations for  /EXTEND.  Give  array name  for
	error message E103.

2324	AlB	15-Mar-84
	Add flagger warnings E252, E256, E272, E289 and E290.

2455	MEM	30-Aug-84
	Replace all occurrences of VAX with VMS.

2473	CDM	31-Jan-85
	Add IMPLICIT NONE for the Military Standard MIL-STD-1753.
	Add E304.

***** End V10 Development *****

***** End Revision History *****

***** Begin Version 11 *****

4527	CDM	1-Jan-86
	VMS Long symbols phase II.  Convert all internal symbols from
	one word of Sixbit to [length,,pointer].  The lengths will be one
	(word) until a later edit, which will store and use long symbols.
	Replace all "?D" with "?C".  Now that they do the same, eliminate
	one.

ENDV11
)%

	! Module containing allocation errors

	BIND ERROR = UPLIT(

	ERRMSG GLOBALLY NAMES

	!***************************************************************
	! Warning messages
	!***************************************************************

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

%57%	E57 GLOBALLY INDEXES
		'MVC?E Number of variables ?B the number of constants in DATA statement?0', ![1157]
%64%	E64 GLOBALLY INDEXES
		'CUO?E Constant underflow or overflow?0',
%98%	E98 GLOBALLY INDEXES
		'CTR?E Complex terms used in a relational other than EQ or NE?0',
%135%	E135 GLOBALLY INDEXES
		'DXB?E DATA statement exceeds bounds of array ?C?0',
%168%	E168 GLOBALLY INDEXES	![2271]
		'CNM?E?BCharacter and non-character variables ?B?0',
%202%	E202 GLOBALLY INDEXES
		'ACB?E Argument out of range for CHAR, high order bits ignored?0',
%222%	E222 GLOBALLY INDEXES	![2247]
		'COS?E Extension to Fortran-77: Comment on statement?0',
%225%	E225 GLOBALLY INDEXES	![2247]
		'DEB?E Extension to Fortran-77: DEBUG lines?0',
%249%	E249 GLOBALLY INDEXES	![2455]
		'LNE?E VMS incompatibility: Logical and numeric variables EQUIVALENCE-d?0',
%252%	E252 GLOBALLY INDEXES	![2324]
		'MLN?E?BMixing logical and numeric?0',
%256%	E256 GLOBALLY INDEXES	![2324]
		'NEC?E Extension to Fortran-77: Numeric expression in character context?0',
%260%	E260 GLOBALLY INDEXES	![2271]
		'NIS?E Extension to Fortran-77: Non-integer subscript?0',
%265%	E265 GLOBALLY INDEXES	![2247]
		'NSC?E?BNon-standard character in column 1?0',
%272%	E272 GLOBALLY INDEXES	![2324]
		'SBC?E Extension to Fortran-77: Substring bounds not constant?0',
%274%	E274 GLOBALLY INDEXES	![2271]
		'SMD?E Extension to Fortran-77: Single subscript with multi-dimensioned array ?C?0',
%289%	E289 GLOBALLY INDEXES	![2324]
		'LNC?E?BNon-numeric operand in numeric context?0',
%290%	E290 GLOBALLY INDEXES	![2324]
		'NLC?E?BNon-logical operand in logical context?0',
%293%	E293 GLOBALLY INDEXES	![2271]
		'SOR?E Subscript out of range for array ?C?0',
%2473%	E304 GLOBALLY INDEXES
%2473%		'MBD?E IMPLICIT NONE - ?C must be explicitly declared?0',

	WOPTMSG GLOBALLY INDEXES

	!***************************************************************
	! Warnings which may affect optimized code
	!***************************************************************

	WARMSG GLOBALLY INDEXES		! End warning messages

	!*************************************************************
	! Fatal error messages
	!*************************************************************

%33%	E33 GLOBALLY INDEXES
		'EXB?E EQUIVALENCE extends COMMON block ?C backwards?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',
%93%	E93 GLOBALLY INDEXES
		'VNA?E Subscripted variable in EQUIVALENCE, but not an array?0',
%61%	E61 GLOBALLY INDEXES
		'CER?E Compiler error in routine ?B?0',
%26%	E26 GLOBALLY INDEXES
		'ISD?E Illegal subscript expression in DATA statement?0',
%60%	E60 GLOBALLY INDEXES
		'IXM?E Illegal mixed mode arithmetic?0',
%27%	E27 GLOBALLY INDEXES
		'AWN?E Array reference ?C has wrong number of subscripts?0',
%53%	E53 GLOBALLY INDEXES
		'VSE?E EQUIVALENCE subscripts must be integer constants?0',
%103%	E103 GLOBALLY INDEXES
		'SOR?E Subscript out of range for array ?C?0',	![2322]
%142%	E142 GLOBALLY INDEXES				![1151]
		'PTL?E Program too large?0',		![1151]
%160%	E160 GLOBALLY INDEXES
		'NCC?E Can''t store numeric constant in character variable ?C?0',
%161%	E161 GLOBALLY INDEXES
		'CSS?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',
%165%	E165 GLOBALLY INDEXES
		'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 ?C must be aligned on word boundary?0',
%173%	E173 GLOBALLY INDEXES
		'IBD?E Illegal substring bound in DATA statement?0',
%175%	E175 GLOBALLY INDEXES
		'ZLD?E Zero-trip DO loop illegal in DATA statement?0',
%192%	E192 GLOBALLY INDEXES	![1511]
		'SSC?E ?B ?C illegal in SAVE statement?0',
%193%	E193 GLOBALLY INDEXES	![1474]
		'LSC?E Length star concatenation not yet supported in this context?0',
%194%	E194 GLOBALLY INDEXES	![1522]
		'NLS?E ?C may not be declared length star?0',
%197%	E197 GLOBALLY INDEXES	![1531]
	   'SSC?E ?C EQUIVALENCE-d to COMMON is illegal in SAVE statement?0',
%206%	E206 GLOBALLY INDEXES
		'FOO?E Illegal operator for type character?0',
%208%	E208 GLOBALLY INDEXES
		'IAN?E Illegal assignment between character and numeric data?0',
	0);

GLOBAL BIND
		BACKTYPE = 0,
		NXTFIL = 0,
		ENDUNIT = 0,
		FINALCHAR = 0,
		LEXNAM = 0;

END
ELUDOM