summaryrefslogtreecommitdiffstats
path: root/fortran
diff options
context:
space:
mode:
authorElena Pourmal <epourmal@hdfgroup.org>2008-05-21 19:21:23 (GMT)
committerElena Pourmal <epourmal@hdfgroup.org>2008-05-21 19:21:23 (GMT)
commit8394d07bb1e614f9d376483f281ea74c6827ac6e (patch)
treec7d0609c9ed0c46611afc06f75bf55d56367cbfd /fortran
parent80b71590a835a41f39ce446e5c3f3e3debf5621d (diff)
downloadhdf5-8394d07bb1e614f9d376483f281ea74c6827ac6e.zip
hdf5-8394d07bb1e614f9d376483f281ea74c6827ac6e.tar.gz
hdf5-8394d07bb1e614f9d376483f281ea74c6827ac6e.tar.bz2
[svn-r15060] Maintenance: File space identifier was not closed causing memory growth; fixed
Platforms tested: kagiso (minor fix)
Diffstat (limited to 'fortran')
-rw-r--r--fortran/src/H5Df.c5
1 files changed, 4 insertions, 1 deletions
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.