diff options
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); |