Make stuff compile again and add some test...

examples/example_hl.f90

@@ -8,6 +8,7 @@ PROGRAM example
   TYPE(t_datetime)  :: dt, dt2, dt3, dt4, dt5
   TYPE(t_timedelta) :: td, td1, td2
   TYPE(t_juliandelta) :: jd
+  TYPE(t_julianday)   :: jday
   TYPE(divisionquotienttimespan) :: dqts
 
   CHARACTER(LEN=*), PARAMETER :: ERR_UNCAUGHT = "!!!!!!!!! ERROR WAS NOT CAUGHT !!!!!!!"
@@ -96,6 +97,11 @@ PROGRAM example
   WRITE (0,*) td%toString(), " is in seconds ", td%toSeconds(dt)
   WRITE (0,*) td%toString(), " is in milliseconds ", td%toMilliSeconds(dt)
 
+  dt   = t_datetime("1970-01-01T00:00:00")
+  jday = dt%toJulianDay()
+  dt2  = jday%toDateTime()
+  print *, dt%toString(), " = ", dt2%toString()
+
   ! register an error callback without stopping the application for
   ! our tests:
   CALL  register_finish_mtime_procedure(error_callback)
@@ -178,6 +184,7 @@ PROGRAM example
   c_sign = 'r'
   jd = t_juliandelta(sign=c_sign, day=99_c_int64_t, ms=123_c_int64_t)
   IF (.NOT. lerror)  WRITE(0,*) ERR_UNCAUGHT
+
   
 
   call event_tests

src/mtime_t_event.inc

@@ -117,7 +117,8 @@
     logical(c_bool) :: ret
 
     !FIXME
-    ret = isCurrentEventActive(this, my_datetime%dt, plus_slack%td, minus_slack%td)
+    STOP
+    !ret = isCurrentEventActive(this, my_datetime%dt, plus_slack%td, minus_slack%td)
 
   END FUNCTION t_event_is_active