From 945f5553f47a68703fd8d81a98514f384dab1ed9 Mon Sep 17 00:00:00 2001
From: Jan Frederik Engels <engels+git@dkrz.de>
Date: Thu, 28 Mar 2019 17:49:07 +0100
Subject: [PATCH] Fix newJulianDelta.
---
src/libmtime.f90 | 5 +++--
src/mtime_c_bindings.f90 | 2 +-
2 files changed, 4 insertions(+), 3 deletions(-)
diff --git a/src/libmtime.f90 b/src/libmtime.f90
index 3caae0cc..1abf9ca4 100644
--- a/src/libmtime.f90
+++ b/src/libmtime.f90
@@ -120,9 +120,10 @@ MODULE mtime_juliandelta
CONTAINS
- FUNCTION newJuliandelta(sign,day, ms, errno) RESULT(ret_juliandelta) !OK-TESTED.
+ FUNCTION newJuliandelta(sign,day, ms, errno) RESULT(ret_juliandelta)
TYPE(juliandelta), POINTER :: ret_juliandelta
- CHARACTER(c_char), INTENT(in) :: sign
+ ! I don't fully understand why value is needed here.
+ CHARACTER(kind=c_char), INTENT(in), value :: sign
INTEGER(c_int64_t), INTENT(in) :: day
INTEGER(c_int64_t), INTENT(in) :: ms
type(c_ptr) :: c_pointer
diff --git a/src/mtime_c_bindings.f90 b/src/mtime_c_bindings.f90
index c6fb9789..487822f9 100644
--- a/src/mtime_c_bindings.f90
+++ b/src/mtime_c_bindings.f90
@@ -116,7 +116,7 @@ module mtime_c_bindings
function my_newjuliandelta(sign, day, ms) result(c_pointer) bind(c, name='newJulianDelta')
import :: c_int64_t, c_char, c_ptr
type(c_ptr) :: c_pointer
- character(c_char) :: sign
+ character(kind=c_char), value :: sign
integer(c_int64_t), value :: day
integer(c_int64_t), value :: ms
end function my_newjuliandelta
--
GitLab