[svn-r26222] call H5close before MPI_Finalize() and close some objects that could be potentially left open.

1 files changed, 8 insertions, 1 deletions

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;