From 7bfa873983414f98aaa3489962681b9105ccb562 Mon Sep 17 00:00:00 2001 From: Scot Breitenfeld Date: Fri, 11 Feb 2022 06:56:33 -0600 Subject: Fixed H5Dget_storage_size_f for zero sized datasets (#1430) * H5Lexists docs: Removed reference to 1.8.16 since the change is the 1.8.x releases, HDFFV-11289 * H5Oget_info_by_name, name can be any object, not just a group * fixed handling size 0 datasets * fixed handling size 0 datasets * format --- fortran/src/H5Df.c | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/fortran/src/H5Df.c b/fortran/src/H5Df.c index 5c46cb3..a780683 100644 --- a/fortran/src/H5Df.c +++ b/fortran/src/H5Df.c @@ -495,10 +495,10 @@ h5dget_storage_size_c(hid_t_f *dset_id, hsize_t_f *size) c_dset_id = (hid_t)*dset_id; c_size = H5Dget_storage_size(c_dset_id); - if (c_size == 0) - return ret_value; - *size = (hsize_t_f)c_size; - ret_value = 0; + if (c_size != 0) { + ret_value = 0; + } + *size = (hsize_t_f)c_size; return ret_value; } -- cgit v0.12