program test_time
   implicit none
   integer values(8)

   call date_and_time(values=values)
   write(*,*) values
end program test_time