Google
 

Trailing-Edge - PDP-10 Archives - BB-D480F-SB_FORTRAN10_V10 - errovg.bli
There are 6 other files named errovg.bli in the archive. Click here to see a list.
!COPYRIGHT (C) DIGITAL EQUIPMENT CORPORATION 1974, 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: NORMA ABEL / D. TOLMAN/DCE/EGM/TFV

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

GLOBAL BIND ERRGV = #10^24 + 0^18 + #2247;	! Version Date:	25-Mar-82

%(

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

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

1	461	19477	ADD ERROR MESSAGE FOR PROGRAM TOO LARGE

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

2	674	11803	ADD ERROR MESSAGE FOR TOO DEEPLY NESTED DO LOOPS
3	723	-----	ADD /NOWARN: SELECTIVITY
4	741	-----	ADD E145
5	747	-----	MAKE ERROR MESSAGES LOWER CASE

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

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

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

***** Begin Version 7 *****

1434	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.  Remove E177 (cant concat error).

	CDM	12-Apr-82
	Add "s" to "backward" to be compatable with ERROUT.BLI for E33.


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

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

***** End Revision History *****
)%

!	Module containing code generation errors

	BIND ERROR = UPLIT(

	ERRMSG GLOBALLY NAMES

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

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

%64%	E64 GLOBALLY INDEXES
		'CUO?E Constant underflow or overflow?0',
%131%	E131 GLOBALLY INDEXES
		'VND?E FUNCTION return value is never defined?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',
%265%	E265 GLOBALLY INDEXES	![2247]
		'NSC?E?BNon-standard character in column 1?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',
%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',
%91%	E91 GLOBALLY INDEXES
		'ENF?E Label ?A must refer to an executable statement, not a FORMAT?0',
%48%	E48 GLOBALLY INDEXES
		'MCE?E More than 1 COMMON variable in EQUIVALENCE group?0',
%96%	E96 GLOBALLY INDEXES
		'LNI?E List directed I/O with no I/O list?0',
%130%	E130 GLOBALLY INDEXES
		'MWL?E Attempt to define multiple RETURN without FORMAT label argument?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',
%193%	E193 GLOBALLY INDEXES	![1474]
		'LSC?E Length star concatenation not yet supported in this context?0',
	0);

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

END
ELUDOM