Skip to content
Snippets Groups Projects
Commit 39453c48 authored by Jan Frederik Engels's avatar Jan Frederik Engels :new_moon:
Browse files

Add missing deallocation.

parent 76597e8e
No related branches found
No related tags found
No related merge requests found
......@@ -134,6 +134,10 @@
ret = my_isCurrentEventActive(c_loc(tmp_ev), tmp_dt, &
& tmp_plus, tmp_minus)
CALL my_deallocatedatetime(tmp_dt)
if (c_associated(tmp_plus)) CALL my_deallocatetimedelta(tmp_plus)
if (c_associated(tmp_minus)) CALL my_deallocatetimedelta(tmp_minus)
END FUNCTION t_event_is_active
! ================================================================================
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment