diff --git a/ftimings/ftimings.F90 b/ftimings/ftimings.F90 index 8ba1b453e4015443ae98ca26228709cc7d495c71..46ce44d937ecedc7be988f789473a2ad49aea57d 100644 --- a/ftimings/ftimings.F90 +++ b/ftimings/ftimings.F90 @@ -1082,6 +1082,8 @@ module ftimings logical :: is_sorted_act, print_own, print_threshold integer :: unit_act + nullify(own_node) + nullify(threshold_node) if (present(threshold)) then threshold_act = threshold