comm_tests(comm);
MPI_Comm_free(&comm);
- //free(SMPI_VARGET_GLOBAL(sbuf));
- //free(SMPI_VARGET_GLOBAL(rbuf));
+ free(SMPI_VARGET_GLOBAL(sbuf));
+ free(SMPI_VARGET_GLOBAL(rbuf));
free(SMPI_VARGET_GLOBAL(recvcounts));
free(SMPI_VARGET_GLOBAL(displs));
void comm_tests(MPI_Comm comm)
{
int comm_size, comm_rank;
- double rtime, max_time;
+ double rtime = rtime; /* stop warning about unused variable */
+ double max_time;
long long msg_size;
MPI_Comm_size(comm, &comm_size);