Logo AND Algorithmique Numérique Distribuée

Public GIT Repository
Also check result for last call of MPI_Alltoallv in this example.
authorArnaud Giersch <arnaud.giersch@univ-fcomte.fr>
Fri, 16 Sep 2022 14:48:30 +0000 (16:48 +0200)
committerArnaud Giersch <arnaud.giersch@univ-fcomte.fr>
Fri, 16 Sep 2022 14:48:30 +0000 (16:48 +0200)
teshsuite/smpi/coll-alltoallv/coll-alltoallv.c

index 9e74d4b..09fa811 100644 (file)
@@ -134,7 +134,9 @@ int main(int argc, char **argv)
   print_buffer_int(sdispls, size, "sdisp:", rank);
   print_buffer_int(rdispls, size, "rdisp:", rank);
 
-  MPI_Alltoallv(sbuf, sendcounts, sdispls, MPI_INT, rbuf, recvcounts, rdispls, MPI_INT, comm);
+  status = MPI_Alltoallv(sbuf, sendcounts, sdispls, MPI_INT, rbuf, recvcounts, rdispls, MPI_INT, comm);
+  if (status != MPI_SUCCESS)
+    printf("MPI_Alltoallv did not return MPI_SUCCESS\n");
 
   print_buffer_int(rbuf, size2, "rbuf:", rank);