From 1df94bba1127d5d1561301e447ca9521d29dc7a2 Mon Sep 17 00:00:00 2001 From: Benjamin Brands Date: Wed, 10 Jan 2018 11:46:27 +0100 Subject: [PATCH] do not free MPI_COMM_NULL communicator in ProcessGrid --- source/base/process_grid.cc | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/source/base/process_grid.cc b/source/base/process_grid.cc index 8aa2ea9eb4..69741b9046 100644 --- a/source/base/process_grid.cc +++ b/source/base/process_grid.cc @@ -217,7 +217,8 @@ namespace Utilities if (mpi_process_is_active) Cblacs_gridexit(blacs_context); - MPI_Comm_free(&mpi_communicator_inactive_with_root); + if (mpi_communicator_inactive_with_root != MPI_COMM_NULL) + MPI_Comm_free(&mpi_communicator_inactive_with_root); } -- 2.39.5