BUG: GETFILEINFOQQ with UNPACKTIMEQQ Fails in MS-DOS

MORE INFORMATION

1. Compile the sample code below, and name the code "TEST.FOR".
2. Type dir test.for at the MS-DOS prompt in the directory containing the sample code. Record the present year, month, day, hour, and minute.
3. Run the sample code from MS-DOS or from an MS-DOS command prompt in Windows (not Windows NT), and compare the date and time shown with the date and time from step 2.

Sample Code

c compile options needed: none

      include 'flib.fi'
      include 'flib.fd'
      integer*2 iyr, imon,iday,ihr,imin,isec
      character*1 AMPM /'a'/ 
      record /FILE$INFO/info
      ihandle = FILE$FIRST
      len=getfileinfoqq('TEST.FOR' ,info, ihandle)
      call unpacktimeqq(info.lastwrite, iyr,imon,iday,ihr,imin,isec)
      if (ihr .gt. 11) AMPM = 'p'
      if (ihr .gt. 12) ihr = ihr-12
      write (*,"(1x,2(I2.2,'-'),I2.2,I4,':',I2.2,a)")
     +  imon,iday,iyr-1900,ihr,imin,AMPM
      END