Trailing-Edge
-
PDP-10 Archives
-
BB-D480F-SB_FORTRAN10_V10
-
errova.bli
There are 6 other files named errova.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: *
MODULE ERRA(RESERVE(0,1,2,3),SREG=#17,FREG=#16,VREG=#15,DREGS=4)=
BEGIN
GLOBAL BIND ERRAV = #10^24 + 0^18 + #2247; ! Version Date: 2-DEC-84
%(
***** Begin Revision History *****
***** Begin Version 5B *****
1 723 ----- ADD /NOWARN: SELECTIVITY
2 741 ----- NEW WARNING (E145)
***** Begin Version 6 *****
3 1115 EGM 30-Jul-81 --------
Remove error binds for /NOWARN selectivity
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 *****
)%
% This BIND is so that there are no undefined globals caused
by the inclusion of INOUT in FORTRA %
GLOBAL BIND
WARMSG =0,
BACKTY =0,
LEXNAM =0,
ERRMSG =0,
WOPTMS =0,
CORMAN =0;
! Error messages that are referenced by INOUT but not called in FORT-A.
GLOBAL BIND
%2247% E222 = 0,
%2247% E225 = 0,
%2247% E265 = 0;
END
ELUDOM