Explorar el Código

Add missing data release

Samuel Thibault hace 9 años
padre
commit
68ed06cc4d
Se han modificado 1 ficheros con 2 adiciones y 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)