program date90

  use timing
  implicit none
  character(64) :: date
  date = date_str()
  write(*,*) trim(date)

end program date90