From 8394d07bb1e614f9d376483f281ea74c6827ac6e Mon Sep 17 00:00:00 2001 From: Elena Pourmal Date: Wed, 21 May 2008 14:21:23 -0500 Subject: [svn-r15060] Maintenance: File space identifier was not closed causing memory growth; fixed Platforms tested: kagiso (minor fix) --- fortran/src/H5Df.c | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/fortran/src/H5Df.c b/fortran/src/H5Df.c index 49f8266..fab2eb5 100644 --- a/fortran/src/H5Df.c +++ b/fortran/src/H5Df.c @@ -1287,7 +1287,10 @@ 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