From 404a0be956aba6dcf4be21d480c39eb958bad652 Mon Sep 17 00:00:00 2001
From: Jan Frederik Engels <engels+git@dkrz.de>
Date: Wed, 13 Feb 2019 15:01:14 +0100
Subject: [PATCH] Add FIXMEs!
---
src/libmtime.f90 | 2 ++
src/libmtime_hl.f90 | 3 ++-
src/mtime_eventList.c | 3 +++
3 files changed, 7 insertions(+), 1 deletion(-)
diff --git a/src/libmtime.f90 b/src/libmtime.f90
index df7cf613..99fbc510 100644
--- a/src/libmtime.f90
+++ b/src/libmtime.f90
@@ -1926,6 +1926,8 @@ module mtime_events
integer, parameter :: max_event_str_len = 512
!
type, bind(c) :: event
+ ! FIXME (some day in the future): This derived type should not specify both -
+ ! the linked list element and the element itself.
type(c_ptr) :: nextEventInGroup
integer(c_int64_t) :: eventId
type(c_ptr) :: eventName
diff --git a/src/libmtime_hl.f90 b/src/libmtime_hl.f90
index 5661447b..4a66a6c6 100644
--- a/src/libmtime_hl.f90
+++ b/src/libmtime_hl.f90
@@ -286,7 +286,8 @@ MODULE mtime_hl
TYPE t_event
!private
-
+ ! FIXME (some day in the future): This derived type should not specify both -
+ ! the linked list element and the element itself.
TYPE(t_event), POINTER :: nextEventInGroup
INTEGER(c_int64_t) :: eventId
diff --git a/src/mtime_eventList.c b/src/mtime_eventList.c
index d23b776b..23e9927f 100644
--- a/src/mtime_eventList.c
+++ b/src/mtime_eventList.c
@@ -10,6 +10,9 @@
* @note All functions in this file are internal.
*/
+
+// FIXME: This FILE is CALLed mtime_eventList.c, but the STRUCT as well the fortran TYPE is CALLed eventGroup!
+
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
--
GitLab