Skip to content
Snippets Groups Projects
Commit 72e7d054 authored by Jan Frederik Engels's avatar Jan Frederik Engels :new_moon: Committed by Luis Kornblueh
Browse files

Add missing deallocation.

parent 798e0145
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