瀏覽代碼

fix memleak

Samuel Thibault 8 年之前
父節點
當前提交
eac4759964
共有 1 個文件被更改,包括 1 次插入0 次删除
  1. 1 0
      examples/native_fortran/nf_sched_ctx.f90

+ 1 - 0
examples/native_fortran/nf_sched_ctx.f90

@@ -96,6 +96,7 @@ program nf_sched_ctx
                 procs2(i) = procs(nprocs1+i)
                 write(*,*) i, procs2(i)
         end do
+        deallocate(procs)
 
         ! create sched context 1 with default policy, by giving a NULL policy name
         ctx1 = fstarpu_sched_ctx_create(procs1, nprocs1,  &