diff options
Diffstat (limited to 'testpar/t_prop.c')
| -rw-r--r-- | testpar/t_prop.c | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/testpar/t_prop.c b/testpar/t_prop.c index 606e100..930b895 100644 --- a/testpar/t_prop.c +++ b/testpar/t_prop.c @@ -535,10 +535,10 @@ external_links(void) for (i = 0; i < 2; i++) { - if (i == 0) { + comm = MPI_COMM_WORLD; + + if (i == 0) doIO = 1; - comm = MPI_COMM_WORLD; - } else { doIO = mpi_rank % 2; mrc = MPI_Comm_split(MPI_COMM_WORLD, doIO, mpi_rank, &comm); @@ -614,11 +614,11 @@ external_links(void) ret = H5Fclose(fid); VRFY((ret >= 0), "H5Fclose succeeded"); + } - if (i == 1) { - mrc = MPI_Comm_free(&comm); - VRFY((mrc == MPI_SUCCESS), "MPI_Comm_free succeeded"); - } + if (comm != MPI_COMM_WORLD) { + mrc = MPI_Comm_free(&comm); + VRFY((mrc == MPI_SUCCESS), "MPI_Comm_free succeeded"); } } |