瀏覽代碼

Add missing data release

Samuel Thibault 9 年之前
父節點
當前提交
68ed06cc4d
共有 1 個文件被更改,包括 2 次插入0 次删除
  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)