From d5337f53905a97696f06072a6cb63550a19476a0 Mon Sep 17 00:00:00 2001 From: Elena Pourmal Date: Wed, 21 May 2008 14:21:46 -0500 Subject: [svn-r15061] Maintenance: File space identifier was not closed causing memory growth; fixed Platforms tested: kagiso (minor fix) --- fortran/src/H5Df.c | 1 + 1 file changed, 1 insertion(+) 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); -- cgit v0.12