From 36e85284f4c59ae713e8594d2af29f38be1731c8 Mon Sep 17 00:00:00 2001
From: Thomas Jahns <jahns@dkrz.de>
Date: Mon, 12 Nov 2018 16:57:16 +0100
Subject: [PATCH] Remove unnecessary POINTER attribute.
---
src/libmtime.f90 | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/src/libmtime.f90 b/src/libmtime.f90
index b01a1a4f..b762fee1 100644
--- a/src/libmtime.f90
+++ b/src/libmtime.f90
@@ -1968,7 +1968,7 @@ contains
!!
!! @param[out] errno optional, error message
subroutine timedeltaToString(my_timedelta, string, errno) !OK-TESTED.
- type(timedelta), pointer :: my_timedelta
+ type(timedelta), target :: my_timedelta
character(len=max_timedelta_str_len) :: string
type(c_ptr) :: dummy_ptr
integer :: i
--
GitLab