File: DATTST.FT of Tape: V50/Source/Source-Listing-FORTRAN-1

(Source file text) 

---

C	PROGRAM TESTING DATE FUNCTION
	INTEGER IM,ID,IY
	CALL DATE(IM,ID,IY)
	WRITE (4,1) IM
1	FORMAT (//,1X,'IM= ',I5)
	WRITE (4,2) ID
2	FORMAT (//,1X,'ID= ',I5)
	WRITE (4,3) IY
3	FORMAT (//,1X,'IY= ',I5)
END

---