Google
 

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