gcc/testsuite/gfortran.dg/date_and_time_1.f90

   1 ! PR libfortran/98507
   2 ! { dg-do run }
   3
   4 program demo_time_and_date
   5   implicit none
   6   character(8)  :: date
   7   character(10) :: time
   8   character(5)  :: zone
   9   integer :: val(8)
  10   integer :: h, m
  11
  12   call date_and_time(values=val)
  13
  14   if (val(1) < 2000 .or. val(1) > 2100) stop 1
  15   if (val(2) < 1 .or. val(2) > 12) stop 2
  16   if (val(3) < 1 .or. val(3) > 31) stop 3
  17
  18   ! Maximum offset is 14 hours (UTC+14)
  19   if (val(4) < -14*60 .or. val(4) > 14*60) stop 4
  20
  21   if (val(5) < 0 .or. val(5) > 23) stop 5
  22   if (val(6) < 0 .or. val(6) > 59) stop 6
  23   if (val(7) < 0 .or. val(7) > 60) stop 7
  24   if (val(8) < 0 .or. val(8) > 999) stop 8
  25
  26   call date_and_time(zone=zone)
  27   if (len(zone) /= 0) then
  28     ! If ZONE is present, it should present the same information as
  29     ! given in VALUES(4)
  30     if (len(zone) /= 5) stop 9
  31     read(zone(1:3),*) h
  32     read(zone(4:5),*) m
  33     if (val(4) /= 60*h+m) stop 10
  34   endif
  35 end