From b85229d0e22fbeee00726a1418e1bde53f1752d9 Mon Sep 17 00:00:00 2001
From: Elena Pourmal <epourmal@hdfgroup.org>
Date: Wed, 21 May 2008 14:21:01 -0500
Subject: [svn-r15059] Maintenance: File space identifier was not closed
 causing memory growth; fixed

Platforms tested: kagiso (minor fix)
---
 fortran/src/H5Df.c | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/fortran/src/H5Df.c b/fortran/src/H5Df.c
index 49f8266..a02971f 100644
--- a/fortran/src/H5Df.c
+++ b/fortran/src/H5Df.c
@@ -1287,7 +1287,9 @@ nh5dset_extent_c ( hid_t_f *dset_id , hsize_t_f *dims)
 
   if((c_space_id = H5Dget_space((hid_t)*dset_id)) < 0) return ret_value;
 
-  if((rank = H5Sget_simple_extent_ndims(c_space_id)) < 0) return ret_value;
+  rank = H5Sget_simple_extent_ndims(c_space_id);
+  H5Sclose(c_space_id);
+  if(rank < 0 ) return ret_value;
 
   /*
    * Reverse dimensions due to C-FORTRAN storage order.
-- 
cgit v0.12