From 79d94c7bb74d28884b3f666a5922a317ef907398 Mon Sep 17 00:00:00 2001
From: Mohamad Chaarawi <chaarawi@hdfgroup.org>
Date: Wed, 18 Feb 2015 16:17:15 -0500
Subject: [svn-r26222] call H5close before MPI_Finalize() and close some
 objects that could be potentially left open.

---
 testpar/t_pflush2.c | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/testpar/t_pflush2.c b/testpar/t_pflush2.c
index 743a3d3..e450f75 100644
--- a/testpar/t_pflush2.c
+++ b/testpar/t_pflush2.c
@@ -101,13 +101,17 @@ check_file(char* name, hid_t fapl)
     if(H5Dclose(dset) < 0) goto error;
     if(H5Fclose(file) < 0) goto error;
     if(H5Pclose(plist) < 0) goto error;
+    if(H5Sclose(space) < 0) goto error;
 
     return 0;
 
 error:
     H5E_BEGIN_TRY {
-        H5Fclose(file);
         H5Pclose(plist);
+        H5Gclose(groups);
+        H5Dclose(dset);
+        H5Fclose(file);
+        H5Sclose(space);
     } H5E_END_TRY;
     return 1;
 }
@@ -205,6 +209,9 @@ main(int argc, char* argv[])
         puts("    Test not compatible with current Virtual File Driver");
     }
 
+    /* close HDF5 library */
+    H5close();
+
     MPI_Finalize();
     return 0;
 
-- 
cgit v0.12