Fix ifort warnings

src/libmtime.f90

@@ -274,6 +274,7 @@ CONTAINS
     TYPE(julianday), TARGET, INTENT(in) :: op1
     TYPE(juliandelta), TARGET, INTENT(in) :: op2
     TYPE(c_ptr) :: dummy_ptr
+    ret = julianday(0, 0)
     dummy_ptr = my_addjuliandeltatojulianday(C_LOC(op1), C_LOC(op2), C_LOC(ret))
   END FUNCTION addJuliandeltaToJulianday
   !
@@ -282,6 +283,7 @@ CONTAINS
     TYPE(julianday), TARGET, INTENT(in) :: op1
     TYPE(juliandelta), TARGET, INTENT(in) :: op2
     TYPE(c_ptr) :: dummy_ptr
+    ret = julianday(0, 0)
     dummy_ptr = my_addjuliandeltatojulianday(C_LOC(op1), C_LOC(op2), C_LOC(ret))
   END FUNCTION addJuliandayToJuliandelta
   !
@@ -290,6 +292,7 @@ CONTAINS
     TYPE(julianday), TARGET, INTENT(in) :: op1
     TYPE(julianday), TARGET, INTENT(in) :: op2
     TYPE(c_ptr) :: dummy_ptr
+    ret = juliandelta("+", 0, 0)
     dummy_ptr = my_subtractjulianday(C_LOC(op1), C_LOC(op2), C_LOC(ret))
   END FUNCTION subtractJuliandayFromJulianday
   !
@@ -1430,6 +1433,7 @@ CONTAINS
     TYPE(timedelta), TARGET :: ret
     TYPE(date), TARGET, INTENT(in)  :: op1, op2
     TYPE(c_ptr) :: dummy_ptr
+    ret = timedelta(0, "+", 0, 0, 0, 0, 0, 0, 0)
     dummy_ptr = my_gettimedeltafromdate(C_LOC(op1), C_LOC(op2), C_LOC(ret))
   END FUNCTION getTimeDeltaFromDate
   !>
@@ -1458,6 +1462,7 @@ CONTAINS
     TYPE(timedelta), TARGET :: ret
     TYPE(datetime), TARGET, INTENT(in) :: op1, op2
     TYPE(c_ptr) :: dummy_ptr
+    ret = timedelta(0, "+", 0, 0, 0, 0, 0, 0, 0)
     dummy_ptr = my_gettimedeltafromdatetime(C_LOC(op1), C_LOC(op2), C_LOC(ret))
   END FUNCTION getTimeDeltaFromDateTime
   !>
@@ -1555,6 +1560,7 @@ CONTAINS
     TYPE(datetime), TARGET, INTENT(in) :: op1
     TYPE(timedelta), TARGET, INTENT(in) :: op2
     TYPE(c_ptr) :: dummy_ptr
+    ret = datetime(date(0, 0, 0), time(0, 0, 0, 0))
     dummy_ptr = my_addtimedeltatodatetime(C_LOC(op1), C_LOC(op2), C_LOC(ret))
   END FUNCTION addTimedeltaToDatetime
   !
@@ -1563,6 +1569,7 @@ CONTAINS
     TYPE(datetime), TARGET, INTENT(in) :: op1
     TYPE(timedelta), TARGET, INTENT(in) :: op2
     TYPE(c_ptr) :: dummy_ptr
+    ret = datetime(date(0, 0, 0), time(0, 0, 0, 0))
     dummy_ptr = my_addtimedeltatodatetime(C_LOC(op1), C_LOC(op2), C_LOC(ret))
   END FUNCTION addDatetimeToTimedelta
   !
@@ -1571,6 +1578,7 @@ CONTAINS
     TYPE(date), TARGET, INTENT(in) :: op1
     TYPE(timedelta), TARGET, INTENT(in) :: op2
     TYPE(c_ptr) :: dummy_ptr
+    ret = date(0, 0, 0)
     dummy_ptr = my_addtimedeltatodate(C_LOC(op1), C_LOC(op2), C_LOC(ret))
   END FUNCTION addTimedeltaToDate
   !
@@ -1579,6 +1587,7 @@ CONTAINS
     TYPE(date), TARGET, INTENT(in) :: op1
     TYPE(timedelta), TARGET, INTENT(in) :: op2
     TYPE(c_ptr) :: dummy_ptr
+    ret = date(0, 0, 0)
     dummy_ptr = my_addtimedeltatodate(C_LOC(op1), C_LOC(op2), C_LOC(ret))
   END FUNCTION addDateToTimedelta
   !
@@ -1589,6 +1598,7 @@ CONTAINS
     INTEGER(c_int64_t) :: lambda
     TYPE(c_ptr) :: dummy_ptr
     lambda = INT(ilambda, c_int64_t)
+    scaled_td = timedelta(0, "+", 0, 0, 0, 0, 0, 0, 0)
     dummy_ptr = my_elementwisescalarmultiplytimedelta(C_LOC(base_td), lambda, C_LOC(scaled_td))
   END FUNCTION elementwiseScalarMultiplyTimeDelta
   !
@@ -1599,6 +1609,7 @@ CONTAINS
     INTEGER(c_int64_t) :: lambda
     TYPE(c_ptr) :: dummy_ptr
     lambda = INT(ilambda, c_int64_t)
+    scaled_td = timedelta(0, "+", 0, 0, 0, 0, 0, 0, 0)
     dummy_ptr = my_elementwisescalarmultiplytimedelta(C_LOC(base_td), lambda, C_LOC(scaled_td))
   END FUNCTION elementwiseScalarMultiplyTimeDeltaInv
   !
@@ -1607,6 +1618,7 @@ CONTAINS
     INTEGER(c_int64_t), INTENT(in) :: lambda
     TYPE(timedelta), TARGET, INTENT(in) :: base_td
     TYPE(c_ptr) :: dummy_ptr
+    scaled_td = timedelta(0, "+", 0, 0, 0, 0, 0, 0, 0)
     dummy_ptr = my_elementwisescalarmultiplytimedelta(C_LOC(base_td), lambda, C_LOC(scaled_td))
   END FUNCTION elementwiseScalarMultiplyTimeDelta_long
   !
@@ -1615,6 +1627,7 @@ CONTAINS
     INTEGER(c_int64_t), INTENT(in) :: lambda
     TYPE(timedelta), TARGET, INTENT(in) :: base_td
     TYPE(c_ptr) :: dummy_ptr
+    scaled_td = timedelta(0, "+", 0, 0, 0, 0, 0, 0, 0)
     dummy_ptr = my_elementwisescalarmultiplytimedelta(C_LOC(base_td), lambda, C_LOC(scaled_td))
   END FUNCTION elementwiseScalarMultiplyTimeDeltaInv_long
   !
@@ -1623,6 +1636,7 @@ CONTAINS
     REAL(c_double), INTENT(in) :: lambda
     TYPE(timedelta), TARGET, INTENT(in) :: base_td
     TYPE(c_ptr) :: dummy_ptr
+    scaled_td = timedelta(0, "+", 0, 0, 0, 0, 0, 0, 0)
     dummy_ptr = my_elementwisescalarmultiplytimedeltadp(C_LOC(base_td), lambda, C_LOC(scaled_td))
   END FUNCTION elementwisescalarmultiplytimedelta_real
   !
@@ -1630,6 +1644,7 @@ CONTAINS
     TYPE(timedelta), TARGET :: added_td
     TYPE(timedelta), TARGET, INTENT(in) :: td1, td2
     TYPE(c_ptr) :: dummy_ptr
+    added_td = timedelta(0, "+", 0, 0, 0, 0, 0, 0, 0)
     dummy_ptr = my_elementwiseaddtimedeltatotimedelta(C_LOC(td1), C_LOC(td2), C_LOC(added_td))
   END FUNCTION elementwiseAddTimeDeltatoTimeDelta
   !>

src/mtime_t_datetime.inc

@@ -104,6 +104,7 @@
     TYPE(t_julianday), TARGET :: jd
     TYPE(c_ptr) :: c_pointer, dummy_ptr
     c_pointer = this%get_c_pointer()
+    jd = t_julianday(julianday(0, 0))
     dummy_ptr = my_getjuliandayfromdatetime(c_pointer, C_LOC(jd%jd))
     CALL handle_errno(.NOT. C_ASSOCIATED(dummy_ptr), 0*100 + 2, &
       & __FILE__, &