another routine migratedd.

src/libmtime_hl.f90

@@ -644,7 +644,6 @@ CONTAINS
   FUNCTION t_datetime_elapsedSecondsInDay(this)
     CLASS (t_datetime),  INTENT(in), target :: this
     INTEGER(c_int64_t) :: t_datetime_elapsedSecondsInDay
-    INTEGER :: errno
 
     t_datetime_elapsedSecondsInDay = my_getnoofsecondselapsedindaydatetime(c_loc(this%dt))
     CALL handle_errno(t_datetime_elapsedSecondsInDay == -1, 4 * 100 + 19, __FILE__, __LINE__)
@@ -661,14 +660,14 @@ CONTAINS
   TYPE(t_timedelta) FUNCTION t_timedelta_assign_string(td_string)
     CHARACTER(len=*), INTENT(in) :: td_string
     TYPE(timedelta), POINTER     :: td_tmp
-    INTEGER                      :: errno
-    td_tmp => newtimedelta(td_string, errno)
-    CALL handle_errno(errno, __FILE__, __LINE__)
-    IF (ASSOCIATED(td_tmp)) THEN
-      t_timedelta_assign_string%td = td_tmp
-      t_timedelta_assign_string%td%sign = td_tmp%sign
-      CALL deallocatetimedelta(td_tmp)
-    END IF
+    type(c_ptr) :: c_pointer
+
+    c_pointer = my_newtimedeltafromstring(trim(adjustl(td_string))//c_null_char)
+    call handle_errno((.not. c_associated(c_pointer)), 5 * 100 + 1, __FILE__, __LINE__)
+    call c_f_pointer(c_pointer, td_tmp)
+    t_timedelta_assign_string%td = td_tmp
+    t_timedelta_assign_string%td%sign = td_tmp%sign
+    call my_deallocatetimedelta(c_pointer)
   END FUNCTION t_timedelta_assign_string
 
   ! constructor for integer milliseconds (integer)