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