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 | |
| 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')
| -rw-r--r-- | fortran/src/H5Fff.F90 | 1 | ||||
| -rw-r--r-- | fortran/src/H5Lff.F90 | 3 |
2 files changed, 4 insertions, 0 deletions
diff --git a/fortran/src/H5Fff.F90 b/fortran/src/H5Fff.F90 index cfae765..fee4d3c 100644 --- a/fortran/src/H5Fff.F90 +++ b/fortran/src/H5Fff.F90 @@ -43,6 +43,7 @@ MODULE H5F ! Number of objects opened in H5open_f INTEGER(SIZE_T) :: H5OPEN_NUM_OBJ + #ifndef H5_DOXYGEN INTERFACE INTEGER(C_INT) FUNCTION h5fis_accessible(name, & 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 !> |