BUG: DATE_AND_TIME Returns Zero for the Milliseconds Value

MORE INFORMATION

Sample Code to Illustrate Problem and Workarounds

C Compile options needed: none

      USE MSFLIB
      INTEGER(4) CURTIME(8)
C      CHARACTER*10 TIME_STR               ! Uncomment for Workaround #1
C      INTEGER(2) THOUR, TMIN, TSEC, THUN  ! Uncomment for Workaround #2

      CALL DATE_AND_TIME(VALUES=CURTIME)   ! Returns zero milliseconds.
      WRITE(*,*) 'Using DATE_AND_TIME().'
      WRITE(*, 100) CURTIME(5), CURTIME(6), CURTIME(7), CURTIME(8)
      WRITE(*,*)

C Uncomment the following two lines for Workaround #1

C      CALL DATE_AND_TIME(TIME=TIME_STR)
C      WRITE(*,*) 'The current time is: ', TIME_STR

C Uncomment the following three lines for Workaround #2

C      WRITE(*,*) ; WRITE(*,*) 'Using GETTIM().'
C      CALL GETTIM(THOUR, TMIN, TSEC, THUN)
C      WRITE(*, 100) THOUR, TMIN, TSEC, THUN*10

100   FORMAT(' The current time is: ', I2.2, ':', I2.2, ':',
     + I2.2, '.', I3.3)

      END