Просмотр исходного кода

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

Nathalie Furmento лет назад: 5
Родитель
Сommit
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;
 }