- if (scount * sextent != rcount * rextent)
- MPI_Allgather(sbuf, scount, stype, rbuf, rcount, rtype, comm);
+ if (scount * sextent != rcount * rextent) {
+ XBT_WARN("MPI_allgather_lr use default MPI_allgather.");
+ smpi_mpi_allgather(sbuf, scount, stype, rbuf, rcount, rtype, comm);
+ return MPI_SUCCESS;
+ }