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);
printf("Alltoallv TEST COMPLETE.\n");
fflush(stdout);
}
- free(sdispls);
- free(rdispls);
- free(recvcounts);
- free(sendcounts);
- free(rbuf);
- free(sbuf);
+ xbt_free(sdispls);
+ xbt_free(rdispls);
+ xbt_free(recvcounts);
+ xbt_free(sendcounts);
+ xbt_free(rbuf);
+ xbt_free(sbuf);
MPI_Finalize();
return 0;