From b1d14ac154e3920c2b1d8640f2a980257f141e1e Mon Sep 17 00:00:00 2001
From: Jan Frederik Engels <engels+git@dkrz.de>
Date: Fri, 29 Mar 2019 16:46:20 +0100
Subject: [PATCH] Fix t_datetime_sub_datetime and some error handling.
---
src/mtime_t_datetime.inc | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/src/mtime_t_datetime.inc b/src/mtime_t_datetime.inc
index 68e13253..edd7d08b 100644
--- a/src/mtime_t_datetime.inc
+++ b/src/mtime_t_datetime.inc
@@ -153,7 +153,8 @@
CLASS (t_datetime), INTENT(in), target :: this
CLASS (t_datetime), INTENT(in), target :: dt
type(c_ptr) :: dummy_ptr
- dummy_ptr = my_gettimedeltafromdate(c_loc(this%dt),c_loc(dt%dt),c_loc(dt_dt_diff%td))
+ dummy_ptr = my_gettimedeltafromdatetime(c_loc(this%dt),c_loc(dt%dt),c_loc(dt_dt_diff%td))
+ CALL handle_errno(.not. c_associated(dummy_ptr), 0 * 100 + 2, __FILE__, __LINE__)
END FUNCTION t_datetime_sub_datetime
! Overloaded operator: test for equivalence.
--
GitLab