diff options
author | Quincey Koziol <koziol@hdfgroup.org> | 2008-06-23 19:16:31 (GMT) |
---|---|---|
committer | Quincey Koziol <koziol@hdfgroup.org> | 2008-06-23 19:16:31 (GMT) |
commit | 46d917001cc78bb7250167f755c12ae6dea6854c (patch) | |
tree | 8f03c918de43ece1026803f66115b457b3573bc6 /fortran/src/H5Df.c | |
parent | a051d43645edb74483fcc2757fa267d081f527df (diff) | |
download | hdf5-46d917001cc78bb7250167f755c12ae6dea6854c.zip hdf5-46d917001cc78bb7250167f755c12ae6dea6854c.tar.gz hdf5-46d917001cc78bb7250167f755c12ae6dea6854c.tar.bz2 |
[svn-r15262] Description:
Merge revisions 15037:15130 from trunk into metadata journaling branch
Tested on:
FreeBSD/32 6.2 (duty) in debug mode
FreeBSD/64 6.2 (liberty) w/C++ & FORTRAN, in debug mode
Linux/32 2.6 (kagiso) w/PGI compilers, w/C++ & FORTRAN, w/threadsafe,
in debug mode
Linux/64-amd64 2.6 (smirom) w/default API=1.6.x, w/C++ & FORTRAN,
in production mode
Linux/64-ia64 2.6 (cobalt) w/Intel compilers, w/C++ & FORTRAN,
in production mode
Solaris/32 2.10 (linew) w/deprecated symbols disabled, w/C++ & FORTRAN,
w/szip filter, in production mode
Mac OS X/32 10.5.2 (amazon) in debug mode
Linux/64-ia64 2.4 (tg-login3) w/parallel, w/FORTRAN, in production mode
Diffstat (limited to 'fortran/src/H5Df.c')
-rw-r--r-- | fortran/src/H5Df.c | 5 |
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. |