From 590df6e62d44fef5523b9707d7c8b3c5d157e5da Mon Sep 17 00:00:00 2001
From: Paul Romano <paul.k.romano@gmail.com>
Date: Sun, 13 Sep 2015 12:20:58 +0700
Subject: [PATCH] Check that HDF5 groups are closed successfully.

---
 src/hdf5_interface.F90 | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/src/hdf5_interface.F90 b/src/hdf5_interface.F90
index f4771d8480..5e0734648c 100644
--- a/src/hdf5_interface.F90
+++ b/src/hdf5_interface.F90
@@ -236,6 +236,9 @@ contains
     integer :: hdf5_err ! HDF5 error code
 
     call h5gclose_f(group_id, hdf5_err)
+    if (hdf5_err < 0) then
+      call fatal_error("Unable to close HDF5 group.")
+    end if
   end subroutine close_group
 
 !===============================================================================