From f6bb79ceef53dc2da317b9306e5c5f483c1d1c5f Mon Sep 17 00:00:00 2001
From: Ralph Castain <rhc@open-mpi.org>
Date: Tue, 22 Mar 2005 18:46:07 +0000
Subject: [PATCH] Fix test to properly clear all memory.

This commit was SVN r4991.
---
 test/mca/gpr/gpr_overwrite.c | 19 +++++++++++++++++--
 1 file changed, 17 insertions(+), 2 deletions(-)

diff --git a/test/mca/gpr/gpr_overwrite.c b/test/mca/gpr/gpr_overwrite.c
index 13434095c1..8b8c6a546c 100644
--- a/test/mca/gpr/gpr_overwrite.c
+++ b/test/mca/gpr/gpr_overwrite.c
@@ -119,7 +119,6 @@ int main(int argc, char **argv)
 {
     ompi_list_t nodes;
     test_node_t *node;
-    orte_process_name_t seed={0,0,0};
     int i, rc;
 
    /*  test_out = fopen( "test_gpr_replica_out", "w+" ); */
@@ -158,7 +157,10 @@ int main(int argc, char **argv)
     
 
     orte_process_info.seed = true;
-    orte_process_info.my_name = &seed;
+    orte_process_info.my_name = (orte_process_name_t*)malloc(sizeof(orte_process_name_t));
+    orte_process_info.my_name->cellid = 0;
+    orte_process_info.my_name->jobid = 0;
+    orte_process_info.my_name->vpid = 0;
 
     /* startup the MCA */
     if (OMPI_SUCCESS == mca_base_open()) {
@@ -238,6 +240,19 @@ int main(int argc, char **argv)
     
     orte_gpr.dump_all(0);
     
+    fprintf(stderr, "now finalize and see if all memory cleared\n");
+    while (NULL != (node = (test_node_t*)ompi_list_remove_first(&nodes))) {
+        OBJ_RELEASE(node);
+    }
+    OBJ_DESTRUCT(&nodes);
+    orte_dps_close();
+    orte_gpr_base_close();
+    orte_sys_info_finalize();
+    orte_proc_info_finalize();
+    mca_base_close();
+    ompi_malloc_finalize();
+    ompi_output_finalize();
+    
     fclose( test_out );
 
     test_finalize();