diff options
Diffstat (limited to 'fortran/src')
| -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 !> |