Merge branch 'master' into stable

jaredahern · Jul 18, 2016 · 3830a3b · 3830a3b
2 parents 4daa1e6 + 36ced3c
commit 3830a3b
Showing 1 changed file with 7 additions and 0 deletions.
diff --git a/src/test.F90 b/src/test.F90
@@ -1,10 +1,17 @@
 PROGRAM test
    IMPLICIT NONE
+   CHARACTER(8)  :: date
+   CHARACTER(10) :: time
+   CHARACTER(5)  :: zone
+   INTEGER       :: values(8)
 
    WRITE(*,*) "Hello, World!"
 
    WRITE(*,*) "Welcome."
 
    WRITE(*,*) "Bonjour."
+
+   CALL DATE_AND_TIME(date,time,zone,values)
+   WRITE(*,*) date, time, zone
 
 END PROGRAM test