Program prac_FORT
 USE IFPORT
 INTEGER(2) year, month, day, hour, minute, second,   &
            hund
 INTEGER(8) timedate, timedate1,a
!CALL GETDAT (year, month, day)
!CALL GETTIM (hour, minute, second, hund)
PRINT *, timedate1,timedate,a
 year=2012
 month=6
 day=22
 hour=10
 minute=36
 second=6
 CALL PACKTIMEQQ (timedate, year, month, day, hour,   &
                  minute, second)
   PRINT *, timedate, timedate1
   CALL EXIT( )               
   CALL PACKTIMEQQ (timedate1,2002,9, 26, 19,   &
                  36, 6)                
PRINT *, timedate, timedate1
 END

输出结果 第一次的PRINT * 中的 timedate1,timedate,a数竟然不是0，而是很大的数。