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