Browse Source

Add missing OpenCL program unload

Samuel Thibault 4 years ago
parent
commit
38c2ce80cb
1 changed files with 5 additions and 0 deletions
  1. 5 0
      examples/filters/fblock.c

+ 5 - 0
examples/filters/fblock.c

@@ -169,6 +169,11 @@ int main(void)
         print_data(handle);
         print_data(handle);
         starpu_data_unregister(handle);
         starpu_data_unregister(handle);
 
 
+#ifdef STARPU_USE_OPENCL
+        ret = starpu_opencl_unload_opencl(&opencl_program);
+	STARPU_CHECK_RETURN_VALUE(ret, "starpu_opencl_unload_opencl");
+#endif
+
         /* Print result block */
         /* Print result block */
         FPRINTF(stderr, "OUT Block\n");
         FPRINTF(stderr, "OUT Block\n");
         print_block(block, NX, NY, NZ, NX, NX*NY);
         print_block(block, NX, NY, NZ, NX, NX*NY);