From ebdaa904b54004be7b64182fc46695b711d70dfd Mon Sep 17 00:00:00 2001
From: Jared Ahern <jaredahern@users.noreply.github.com>
Date: Mon, 18 Jul 2016 09:43:00 -0400
Subject: [PATCH] Added date feature

---
 src/test.F90 | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/src/test.F90 b/src/test.F90
index 86a8b9b..9234d4d 100644
--- 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