diff options
| author | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2023-05-22 23:17:14 (GMT) |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2023-05-22 23:17:14 (GMT) |
| commit | a888742959249605f83a00f1fd769c15b515969b (patch) | |
| tree | 4811ce7bac3364f346cc5cac2371d2ce1bd36bf6 /fortran/src/H5Lff.F90 | |
| parent | 8186a8ded043b383004160ec4ad239687c60d5dd (diff) | |
| download | hdf5-a888742959249605f83a00f1fd769c15b515969b.zip hdf5-a888742959249605f83a00f1fd769c15b515969b.tar.gz hdf5-a888742959249605f83a00f1fd769c15b515969b.tar.bz2 | |
Updated H5Ovisit_f and H5Ovisit_by_name_f wrappers internals. (#2987)
* * Removed C wrappers for H5Ovisit_f and H5Ovist_by_name_f, modifying the Fortran source accordingly.
* The intent for op_data was declared INOUT, even though the pointer address INTENT is, in actuality, IN. gfortran was optimizing out op_data in tests where the values were repeatedly reset to the same value. The values were reset in the test because the data the pointer targeted was updated in the callback.
* Made use of the 'verify' function to check value correctness.
* changed to useing INTEGER(C_INT) instead of C_BOOL, updated the documentation
Diffstat (limited to 'fortran/src/H5Lff.F90')
| -rw-r--r-- | fortran/src/H5Lff.F90 | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/fortran/src/H5Lff.F90 b/fortran/src/H5Lff.F90 index 790a65d..2340ce4 100644 --- a/fortran/src/H5Lff.F90 +++ b/fortran/src/H5Lff.F90 @@ -765,7 +765,9 @@ CONTAINS !! !! \param loc_id Identifier of the file or group to query. !! \param name Link name to check. -!! \param link_exists Pointer to Link exists status, must be of type LOGICAL(C_BOOL) and initialize to .FALSE. +!! \param link_exists Pointer to link exists status. It should be declared INTEGER(C_INT) and initialized +!! to zero (false) for portability. It will return one when true. LOGICAL(C_BOOL) is also +!! acceptable but may encounter atypical anomalies. It should be initialized to false when used. !! \param es_id \es_id !! \param hdferr \fortran_error !! \param lapl_id Link access property list identifier. |