PDP-10 Archive: fortran/test/ovl2.for from BB-4157F-BM

Trailing-Edge - PDP-10 Archives - BB-4157F-BM_1983 - fortran/test/ovl2.for

There are 9 other files named ovl2.for in the archive. Click here to see a list.

	SUBROUTINE OVL2A(ARG)

C THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
C   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
C 
C COPYRIGHT (C) DIGITAL EQUIPMENT CORPORATION 1982, 1983

	IMPLICIT DOUBLE PRECISION (D)
	IMPLICIT COMPLEX (C)
	IMPLICIT INTEGER (A)
	INTEGER OVL6

	TYPE 1
1	FORMAT (1X,'	OVL2A CALLS OVL5'/)
	ARG=0
	CALL OVL5(ARG)
	TYPE 2
2	FORMAT (1X,'	RETURN TO OVL2A'/)
	IF (ARG.NE.1) TYPE 100
100	FORMAT(' ?Error. Value not returned from OVL5')

	TYPE 3
3	FORMAT (1X,'	OVL2A CALLS OVL6'/)
	NUM=0
	NUM=OVL6(NUM)
	TYPE 2
	IF (NUM.NE.1) TYPE 300
300	FORMAT(' ?Error. Value not returned from OVL6')

	ARG=1		!Return value
	RETURN
	END

	SUBROUTINE OVL2B

	IMPLICIT DOUBLE PRECISION (D)
	IMPLICIT COMPLEX (C)
	IMPLICIT INTEGER (A)

	TYPE 1
1	FORMAT (/1X,'		OVL2B DOESN''T CALL ANYTHING')

	RETURN
	END