From b79bef8f44f4f9d2c19871000cad9934c088ad50 Mon Sep 17 00:00:00 2001
From: Kingshuk Haldar <kingshuk.haldar@hlrs.de>
Date: Fri, 18 Jul 2025 15:48:37 +0200
Subject: [PATCH] Finalize MPI in Backend_Finalize()

---
 src/tracer/wrappers/API/wrapper.c | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/src/tracer/wrappers/API/wrapper.c b/src/tracer/wrappers/API/wrapper.c
index 329f0c2a..df6b26d2 100644
--- a/src/tracer/wrappers/API/wrapper.c
+++ b/src/tracer/wrappers/API/wrapper.c
@@ -2667,6 +2667,14 @@ void Backend_Finalize (void)
 		pthread_mutex_unlock(&pthreadFreeBuffer_mtx);
 		remove_temporal_files ();
 	}
+
+#if defined(MPI_SUPPORT)
+  int mpi_is_finalized= -1;
+  PMPI_Finalized(&mpi_is_finalized);
+  if (0 == mpi_is_finalized) {
+    PMPI_Finalize();
+  }
+#endif  /* MPI_SUPPORT */
 }
 
 static int *Extrae_inSampling = NULL;