From 9958416dda04c552bf41228f29d07de0c5776a6a Mon Sep 17 00:00:00 2001
From: Jeff Squyres <jsquyres@cisco.com>
Date: Fri, 30 Jan 2004 03:56:21 +0000
Subject: [PATCH] Shut down properly; ensure to call mca_base_close() to close
 out MCA

This commit was SVN r607.
---
 src/mpi/runtime/lam_mpi_finalize.c | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/src/mpi/runtime/lam_mpi_finalize.c b/src/mpi/runtime/lam_mpi_finalize.c
index cad04bdd2b..515afa56c7 100644
--- a/src/mpi/runtime/lam_mpi_finalize.c
+++ b/src/mpi/runtime/lam_mpi_finalize.c
@@ -8,8 +8,11 @@
 #include "lam/runtime/runtime.h"
 #include "mpi.h"
 #include "mpi/runtime/runtime.h"
+#include "mca/lam/base/base.h"
 #include "mca/mpi/ptl/ptl.h"
+#include "mca/mpi/ptl/base/base.h"
 #include "mca/mpi/pml/pml.h"
+#include "mca/mpi/pml/base/base.h"
 
 
 int lam_mpi_finalize(void)
@@ -34,6 +37,12 @@ int lam_mpi_finalize(void)
     return ret;
   }
 
+  /* Close down the MCA */
+
+  if (LAM_SUCCESS != (ret = mca_base_close())) {
+    return ret;
+  }
+
   /* Leave LAM */
 
   if (LAM_SUCCESS != (ret = lam_finalize())) {