* under the terms of the license (GNU LGPL) which comes with this package. */
#include "private.h"
-#include "smpi_coll_private.h"
#include "smpi_mpi_dt_private.h"
XBT_LOG_NEW_DEFAULT_SUBCATEGORY(smpi_pmpi, smpi,
smpi_bench_end();
if (comm == MPI_COMM_NULL) {
retval = MPI_ERR_COMM;
+ } else if (rank == NULL) {
+ retval = MPI_ERR_ARG;
} else {
*rank = smpi_comm_rank(comm);
retval = MPI_SUCCESS;