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
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 |
The current date and time as a string.
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