Fix bug with optional plus/minus slack in event isActive

src/mtime_t_event.inc

@@ -260,7 +260,9 @@
          &                     tmp_triggeredPreviousEventDateTime
 
     TYPE(datetime), TARGET  :: tmp_dt, tmp_evFirstDateTime, tmp_evLastDateTime
-    TYPE(timedelta), TARGET :: tmp_plus, tmp_minus, tmp_evInterval
+    TYPE(timedelta), TARGET :: tmp_evInterval
+
+    TYPE(c_ptr) :: cp_plus, cp_minus
 
     TYPE(c_ptr), TARGET :: cpointer1, cpointer2, cpointer3
 
@@ -269,8 +271,11 @@
     tmp_evLastDateTime      = this%eventLastDateTime
     tmp_evInterval          = this%eventInterval
 
-    IF (PRESENT(plus_slack))  tmp_plus  = plus_slack%td
-    IF (PRESENT(minus_slack)) tmp_minus = minus_slack%td
+    cp_plus = c_null_ptr
+    IF (PRESENT(plus_slack)) cp_plus = plus_slack%get_c_pointer()
+
+    cp_minus = c_null_ptr
+    IF (PRESENT(minus_slack)) cp_minus = minus_slack%get_c_pointer()
 
     event_neverTriggerEvent    = this%neverTriggerEvent
     event_triggerCurrentEvent  = this%triggerCurrentEvent
@@ -306,8 +311,8 @@
       &                              C_LOC(tmp_evFirstDateTime),                  &  ! in
       &                              C_LOC(tmp_evLastDateTime),                   &  ! in
       &                              C_LOC(tmp_evInterval),                       &  ! in
-      &                              C_LOC(tmp_plus),                             &  ! in
-      &                              C_LOC(tmp_minus),                            &  ! in
+      &                              cp_plus,                                     &  ! in
+      &                              cp_minus,                                    &  ! in
       &                              event_neverTriggerEvent,                     &  ! inout
       &                              event_triggerCurrentEvent,                   &  ! inout
       &                              event_eventisFirstInDay,                     &  ! inout