Merge pull request #4 from jaredahern/date_feature

Added date feature
jaredahern · Jul 18, 2016 · 36ced3c · 36ced3c
2 parents 4daa1e6 + ebdaa90
commit 36ced3c
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