Browse Source

mpi/tests: unregister data

Nathalie Furmento 12 years ago
parent
commit
a624505819
3 changed files with 15 additions and 1 deletions
  1. 5 0
      mpi/tests/multiple_send.c
  2. 7 1
      mpi/tests/pingpong.c
  3. 3 0
      mpi/tests/user_defined_datatype.c

+ 5 - 0
mpi/tests/multiple_send.c

@@ -87,6 +87,11 @@ int main(int argc, char **argv)
         }
         FPRINTF(stderr, "[%d] All requests finished\n", rank);
 
+	starpu_data_unregister(send_handle[0]);
+	starpu_data_unregister(send_handle[1]);
+	starpu_data_unregister(recv_handle[0]);
+	starpu_data_unregister(recv_handle[1]);
+
 	starpu_mpi_shutdown();
 	starpu_shutdown();
 

+ 7 - 1
mpi/tests/pingpong.c

@@ -18,7 +18,12 @@
 #include <starpu_mpi.h>
 #include "helper.h"
 
-#define NITER	2048
+#ifdef STARPU_QUICK_CHECK
+#  define NITER	16
+#else
+#  define NITER	2048
+#endif
+
 #define SIZE	16
 
 float *tab;
@@ -69,6 +74,7 @@ int main(int argc, char **argv)
 		}
 	}
 
+	starpu_data_unregister(tab_handle);
 	starpu_mpi_shutdown();
 	starpu_shutdown();
 

+ 3 - 0
mpi/tests/user_defined_datatype.c

@@ -85,6 +85,9 @@ int main(int argc, char **argv)
 
 		test_handle(handle_var, &double_display, rank);
 		test_handle(handle_complex, &cl_display, rank);
+
+		starpu_data_unregister(handle_complex);
+		starpu_data_unregister(handle_var);
 	}
 	starpu_task_wait_for_all();
 	starpu_mpi_shutdown();