瀏覽代碼

Print msg when Init fails

Corentin Salingue 8 年之前
父節點
當前提交
69ba48ac8e
共有 1 個文件被更改,包括 4 次插入1 次删除
  1. 4 1
      src/drivers/mpi/driver_mpi_common.c

+ 4 - 1
src/drivers/mpi/driver_mpi_common.c

@@ -80,7 +80,10 @@ int _starpu_mpi_common_mp_init()
 #endif
 
                 int thread_support;
-                STARPU_ASSERT(MPI_Init_thread(_starpu_get_argc(), _starpu_get_argv(), required, &thread_support) == MPI_SUCCESS);
+                if (MPI_Init_thread(_starpu_get_argc(), _starpu_get_argv(), required, &thread_support) != MPI_SUCCESS);
+		{
+			STARPU_ABORT_MSG("Cannot Initialize MPI !");
+		}
 
                 if (thread_support != required)
                 {