gcc/testsuite/gfortran.fortran-torture/execute/date_time_1.f90

   1 ! Check the DATE_AND_TIME intrinsic.
   2 ! Call teh intrinsic with a variety of arguments, but does not check the
   3 ! returned values.
   4 CHARACTER(8) :: d, d1
   5 CHARACTER(10) :: t, t1
   6 CHARACTER(5) :: z, z1
   7 INTEGER :: v(8), v1(8)
   8
   9 CALL DATE_AND_TIME
  10
  11 CALL DATE_AND_TIME(DATE=d)
  12 CALL DATE_AND_TIME(TIME=t)
  13 CALL DATE_AND_TIME(ZONE=z)
  14
  15 CALL DATE_AND_TIME(VALUES=v)
  16
  17 CALL DATE_AND_TIME(DATE=d, TIME=t)
  18 CALL DATE_AND_TIME(DATE=d, VALUES=v)
  19 CALL DATE_AND_TIME(TIME=t, ZONE=z)
  20
  21 CALL DATE_AND_TIME(DATE=d, TIME=t, ZONE=z)
  22 CALL DATE_AND_TIME(TIME=t, ZONE=z, VALUES=v)
  23
  24 CALL DATE_AND_TIME(DATE=d, TIME=t, ZONE=z, VALUES=v)
  25
  26 END