Browse Source

fix memleak

Samuel Thibault 8 years ago
parent
commit
eac4759964
1 changed files with 1 additions and 0 deletions
  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,  &