Trailing-Edge
-
PDP-10 Archives
-
bb-bt99h-bb
-
sta3.c13
There is 1 other file named sta3.c13 in the archive. Click here to see a list.
REP 19/1 ;13C1
!AUTHOR: F.J. INFANTE, D. B. TOLMAN/MD/DCE/EGM/CKS/AHM/CDM/TFV/RVM/MRB/AlB
WIT
!AUTHOR: F.J. INFANTE, D. B. TOLMAN/MD/DCE/EGM/CKS/AHM/CDM/TFV/RVM/MRB/AlB/JB
REP 26/1 ;13C2
GLOBAL BIND STA3V = #10^24 + 0^18 + #2546; ! Version Date: 5-Sep-85
WIT
GLOBAL BIND STA3V = #10^24 + 0^18 + #2557; ! Version Date: 6-Nov-85
REP 293/1 ;13C3
WIT
2557 JB 6-Nov-85
Check for the use of specific function names in argument lists
instead of in INTRINSIC statements. Call routine INTRCHK to
perform the check.
REP 49/6 ;13C4
%1515% IF .LIBATTRIBUTES[.FNINDEX-LIBFUNTAB<0,0>, ATTSPGEN]
%1515% THEN
%1515% BEGIN ! Non-specific, generic name is illegal
%1515% STMTERROR = TRUE;
%1515% ERR15('the name of a non-generic function')
%1515% END ! of non-specific, generic name is illegal
%1515% ELSE
BEGIN ! Set up the attributes of this identifier.
WIT
%2557% BEGIN ! Set up the attributes of this identifier.
SUM 48455