Skip to content
Snippets Groups Projects
Commit b1d14ac1 authored by Jan Frederik Engels's avatar Jan Frederik Engels :new_moon: Committed by Luis Kornblueh
Browse files

Fix t_datetime_sub_datetime and some error handling.

parent 118c621b
No related branches found
No related tags found
No related merge requests found
......@@ -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.
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment