Explorar o código

Add missing data release

Samuel Thibault %!s(int64=9) %!d(string=hai) anos
pai
achega
68ed06cc4d
Modificáronse 1 ficheiros con 2 adicións e 0 borrados
  1. 2 0
      examples/native_fortran/nf_example.f90

+ 2 - 0
examples/native_fortran/nf_example.f90

@@ -165,6 +165,8 @@ PROGRAM f90_example
   WRITE(6,'(a)') " "
 
   !Deallocation
+  fstarpu_codelet_free(cl_loop_element)
+  fstarpu_codelet_free(cl_copy_element)
   DO i = 1,Nelt
      elt => mesh%elt(i)
      DEALLOCATE(elt%ro)