From ea26955d18aa8f92918080c1ef7b00c0867cef29 Mon Sep 17 00:00:00 2001 From: Wei-keng Liao Date: Fri, 15 Apr 2022 10:22:01 -0500 Subject: not depend on doIO to free an MPI_Comm object (#1642) --- testpar/t_prop.c | 14 +++++++------- 1 file 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"); } } -- cgit v0.12