FDATE— Get the current time as a string
FDATE(DATE)returns the current date (using the same format as
CTIME) in DATE. It is equivalent to
CALL CTIME(DATE, TIME()).
This intrinsic is provided in both subroutine and function forms; however,
only one form can be used in any given program unit.
|DATE||The type shall be of type |
program test_fdate integer(8) :: i, j character(len=30) :: date call fdate(date) print *, 'Program started on ', date do i = 1, 100000000 ! Just a delay j = i * i - i end do call fdate(date) print *, 'Program ended on ', date end program test_fdate