From c7b7bf80bafbaa4e8918f4ac4608f5f7b202a6b2 Mon Sep 17 00:00:00 2001
From: Arnaud Giersch <arnaud.giersch@univ-fcomte.fr>
Date: Thu, 5 Dec 2019 10:32:33 +0100
Subject: [PATCH] Free communicators.

---
 teshsuite/smpi/topo-cart-sub/topo-cart-sub.c | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/teshsuite/smpi/topo-cart-sub/topo-cart-sub.c b/teshsuite/smpi/topo-cart-sub/topo-cart-sub.c
index 6521ab00e8..5acc708316 100644
--- a/teshsuite/smpi/topo-cart-sub/topo-cart-sub.c
+++ b/teshsuite/smpi/topo-cart-sub/topo-cart-sub.c
@@ -115,6 +115,9 @@ int main(int argc, char** argv)
     printf("\n");
   }
   printf("-------------------\n");
+
+  MPI_Comm_free(&lineComm);
+  MPI_Comm_free(&gridComm);
   free(A);
   MPI_Barrier(MPI_COMM_WORLD);
   MPI_Finalize();
-- 
2.20.1