deallocate objects in Fortran examples

NNPDF · Feb 11, 2025 · b5fe4c6 · b5fe4c6
1 parent 7542747
commit b5fe4c6
Show file tree

Hide file tree

Showing 2 changed files with 17 additions and 0 deletions.
diff --git 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
@@ -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)