diff options
| author | Elena Pourmal <epourmal@hdfgroup.org> | 2008-05-21 19:21:01 (GMT) |
|---|---|---|
| committer | Elena Pourmal <epourmal@hdfgroup.org> | 2008-05-21 19:21:01 (GMT) |
| commit | b85229d0e22fbeee00726a1418e1bde53f1752d9 (patch) | |
| tree | 22180a99fa71a48427ad7aac471690c772ff6a4b /fortran | |
| parent | e2b412cbf5592ff1a8f085ea5e2cebdbb2a59590 (diff) | |
| download | hdf5-b85229d0e22fbeee00726a1418e1bde53f1752d9.zip hdf5-b85229d0e22fbeee00726a1418e1bde53f1752d9.tar.gz hdf5-b85229d0e22fbeee00726a1418e1bde53f1752d9.tar.bz2 | |
[svn-r15059] 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.c | 4 |
1 files changed, 3 insertions, 1 deletions
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. |