Fix wrong usage of target as pointer that was tolerated by gfortran

ftimings/ftimings_node.F90

@@ -265,7 +265,7 @@ module ftimings_node
     type(node_t), pointer :: node
     integer :: i
     type(value_t) :: cur_value, node_value, own_value, below_threshold_value, total_act
-    type(node_t), target :: own_node, threshold_node
+    type(node_t), pointer :: own_node, threshold_node
     real(kind=rk) :: threshold_act
     logical :: is_sorted_act, print_own, print_threshold
     integer :: unit_act
@@ -310,6 +310,7 @@ module ftimings_node
       ! sort them in
       if (print_own) then
         ! insert an "(own)" node
+        allocate(own_node)
         own_node%value = own_value
         own_node%name = own
         call insert_into_sorted_list(self%firstChild, own_node)
@@ -317,6 +318,7 @@ module ftimings_node
 
       if (print_threshold) then
         ! insert a "(below threshold)" node
+        allocate(threshold_node)
         threshold_node%value = below_threshold_value
         threshold_node%name = below
         call insert_into_sorted_list(self%firstChild, threshold_node)
@@ -348,9 +350,11 @@ module ftimings_node
       ! remove inserted dummy nodes again
       if (print_own) then
         call remove_from_list(self%firstChild, own_node)
+        deallocate(own_node)
       endif
       if (print_threshold) then
         call remove_from_list(self%firstChild, threshold_node)
+        deallocate(threshold_node)
       endif
     endif