Logo AND Algorithmique Numérique Distribuée

Public GIT Repository
Enforce type for other MPI NULL constants.
[simgrid.git] / src / smpi / smpi_pmpi.c
index 74c3aac..cddc020 100644 (file)
@@ -2324,7 +2324,7 @@ int PMPI_Type_commit(MPI_Datatype* datatype) {
   int retval = 0;
 
   smpi_bench_end();
-  if (datatype == MPI_DATATYPE_NULL) {
+  if (datatype == NULL || *datatype == MPI_DATATYPE_NULL) {
     retval = MPI_ERR_TYPE;
   } else {
     smpi_datatype_commit(datatype);