Trailing-Edge
-
PDP-10 Archives
-
bb-bt99g-bb
-
outmod.c13
There is 1 other file named outmod.c13 in the archive. Click here to see a list.
REP 25/1 ;13C1
GLOBAL BIND OUTMOV = #10^24 + 0^18 + #2507; ! Version Date: 20-Dec-84
WIT
GLOBAL BIND OUTMOV = #10^24 + 0^18 + #2562; ! Version Date: 9-Dec-85
INS 522/1 ;13C2
2562 JB 9-Dec-85
When using IMPLICIT NONE, a symbol in an EXTERNAL statement gets a
warning that it must be explicitly declared. If the symbol isn't
used as a function in the same program it shouldn't get the warning
because function types must be explicitly declared, whereas
subroutines needn't be. We added a check for this.
INS 98/37 ;13C3
%2562% THEN IF NOT (.SYM[OPR1] EQL FNNAMFL ! EXTERNAL name
%2562% AND .SYM[IDATTRIBUT(INEXTERN)] ! used
%2562% AND NOT .SYM[IDFUNCTION]) ! as funct.
SUM 23811