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