diff options
author | jhendersonHDF <jhenderson@hdfgroup.org> | 2023-10-18 04:54:40 (GMT) |
---|---|---|
committer | GitHub <noreply@github.com> | 2023-10-18 04:54:40 (GMT) |
commit | 95572568191492f0d79924a55ea10453095a20c1 (patch) | |
tree | 5d4848b3a883d7703fccb2b92f1caae8d0c0d37c /fortran/src/H5Lff.F90 | |
parent | fc788559f7747eeefd152fc8c7844f45d3845300 (diff) | |
download | hdf5-95572568191492f0d79924a55ea10453095a20c1.zip hdf5-95572568191492f0d79924a55ea10453095a20c1.tar.gz hdf5-95572568191492f0d79924a55ea10453095a20c1.tar.bz2 |
Sync changes that are only in 1.14 branch (#3704)
Diffstat (limited to 'fortran/src/H5Lff.F90')
-rw-r--r-- | fortran/src/H5Lff.F90 | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/fortran/src/H5Lff.F90 b/fortran/src/H5Lff.F90 index bedfb8c..004e5b2 100644 --- a/fortran/src/H5Lff.F90 +++ b/fortran/src/H5Lff.F90 @@ -753,6 +753,9 @@ CONTAINS hdferr = 0 IF(link_exists_c.LT.0_C_INT) hdferr = -1 + hdferr = 0 + IF(link_exists_c.LT.0) hdferr = -1 + END SUBROUTINE h5lexists_f !> |