diff options
author | Elena Pourmal <epourmal@hdfgroup.org> | 2008-05-21 19:21:46 (GMT) |
---|---|---|
committer | Elena Pourmal <epourmal@hdfgroup.org> | 2008-05-21 19:21:46 (GMT) |
commit | d5337f53905a97696f06072a6cb63550a19476a0 (patch) | |
tree | fc496c476e1b6358d8508d0cd630efb008f251e0 /fortran/src/H5Df.c | |
parent | b45434f017957fb479348c5694a953c7a128c8c0 (diff) | |
download | hdf5-d5337f53905a97696f06072a6cb63550a19476a0.zip hdf5-d5337f53905a97696f06072a6cb63550a19476a0.tar.gz hdf5-d5337f53905a97696f06072a6cb63550a19476a0.tar.bz2 |
[svn-r15061] Maintenance: File space identifier was not closed causing memory growth; fixed
Platforms tested: kagiso (minor fix)
Diffstat (limited to 'fortran/src/H5Df.c')
-rw-r--r-- | fortran/src/H5Df.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/fortran/src/H5Df.c b/fortran/src/H5Df.c index b2d9a61..7a627dd 100644 --- a/fortran/src/H5Df.c +++ b/fortran/src/H5Df.c @@ -1298,6 +1298,7 @@ nh5dextend_c ( hid_t_f *dset_id , hsize_t_f *dims) if (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; c_dims = malloc(sizeof(hsize_t)*rank); |