浏览代码

mpi/tests/early_stuff.c: initialize and shutdown mpi

Nathalie Furmento 5 年之前
父节点
当前提交
cddab3b31f
共有 1 个文件被更改,包括 6 次插入0 次删除
  1. 6 0
      mpi/tests/early_stuff.c

+ 6 - 0
mpi/tests/early_stuff.c

@@ -21,6 +21,12 @@
 #ifndef STARPU_USE_MPI_MPI
 int main(int argc, char **argv)
 {
+	int mpi_init;
+
+	MPI_INIT_THREAD(&argc, &argv, MPI_THREAD_SERIALIZED, &mpi_init);
+	if (!mpi_init)
+		MPI_Finalize();
+
 	return STARPU_TEST_SKIPPED;
 }