Google
 

Trailing-Edge - PDP-10 Archives - BB-4157F-BM_1983 - fortran/test/ovl0.for
There are 9 other files named ovl0.for in the archive. Click here to see a list.
	PROGRAM OVL0

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

C	Simple overlay tests

C			OVL0
C		       /    \
C		OVL2A	      OVL4
C	      /	    \		   \
C	   OVL5	     OVL6  	    OVL1
C			\	   /
C			OVL2B	OVL3

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

	TYPE 1
1	FORMAT ('1','Execution begins in main program OVL0')

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

	TYPE 21
21	FORMAT (1X,'OVL0 CALLS OVL4')
	NUMB=0
	CALL OVL4(NUMB)
	TYPE 2
	IF (IVAR.NE.1) TYPE 200
200	FORMAT(' ?Error. Value not returned from NUMB')

	TYPE 3
3	FORMAT (/1X,'Execution ends in main program OVL0'//)

	STOP
	END