From b5fe4c6cfa1a7dd16d8598d6ec17dc99cd3a29ed Mon Sep 17 00:00:00 2001 From: Radonirinaunimi Date: Tue, 11 Feb 2025 12:47:00 +0100 Subject: [PATCH] `deallocate` objects in Fortran examples --- examples/fortran/test-deprecated.f90 | 9 +++++++++ examples/fortran/test.f90 | 8 ++++++++ 2 files changed, 17 insertions(+) diff --git a/examples/fortran/test-deprecated.f90 b/examples/fortran/test-deprecated.f90 index 71d7fc08..c7a8e487 100644 --- a/examples/fortran/test-deprecated.f90 +++ b/examples/fortran/test-deprecated.f90 @@ -68,6 +68,11 @@ program test_pineappl grid2 = pineappl_grid_clone(grid) + ! Remove objects from Memory + deallocate(bin_limits_left) + deallocate(bin_limits_right) + deallocate(bin_normalizations) + call pineappl_grid_delete(grid2) lumi2 = pineappl_grid_lumi(grid) @@ -161,6 +166,10 @@ program test_pineappl error stop "error: pineappl_grid_convolve_with_two" end if + ! Remove objects from Memory + deallocate(result) + deallocate(string) + call pineappl_keyval_delete(key_vals) call pineappl_keyval_delete(key_vals2) diff --git a/examples/fortran/test.f90 b/examples/fortran/test.f90 index 1316a1ba..b5b65d5e 100644 --- a/examples/fortran/test.f90 +++ b/examples/fortran/test.f90 @@ -102,6 +102,11 @@ program test_pineappl grid2 = pineappl_grid_clone(grid) + ! Remove objects from Memory + deallocate(bin_limits_left) + deallocate(bin_limits_right) + deallocate(bin_normalizations) + call pineappl_grid_delete(grid2) channels2 = pineappl_grid_channels(grid) @@ -189,6 +194,9 @@ program test_pineappl error stop "error: pineappl_grid_convolve" end if + ! Remove objects from Memory + deallocate(result) + call pineappl_channels_delete(channels) call pineappl_grid_delete(grid)