diff options
author | Larry Knox <lrknox@hdfgroup.org> | 2021-08-31 21:26:26 (GMT) |
---|---|---|
committer | GitHub <noreply@github.com> | 2021-08-31 21:26:26 (GMT) |
commit | 87219574a831dbeffcc73a6a385e3ccc3784c90d (patch) | |
tree | aacb81fe07218c35a32ddbf9732f416cc9e3ff1f /fortran/src | |
parent | 3abbb9c5f41bca50ae25ca9e0c856a93aff638f4 (diff) | |
download | hdf5-87219574a831dbeffcc73a6a385e3ccc3784c90d.zip hdf5-87219574a831dbeffcc73a6a385e3ccc3784c90d.tar.gz hdf5-87219574a831dbeffcc73a6a385e3ccc3784c90d.tar.bz2 |
Rework of PR #826 (#972) (#979)
* H5Fget_name_f fixed to handle correctly trailing whitespaces and newly allocated buffers.
Co-authored-by: github-actions <41898282+github-actions[bot]@users.noreply.github.com>
Co-authored-by: Scot Breitenfeld <brtnfld@hdfgroup.org>
Co-authored-by: github-actions <41898282+github-actions[bot]@users.noreply.github.com>
Diffstat (limited to 'fortran/src')
-rw-r--r-- | fortran/src/H5Fff.f90 | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/fortran/src/H5Fff.f90 b/fortran/src/H5Fff.f90 index 9f0365a..d254307 100644 --- a/fortran/src/H5Fff.f90 +++ b/fortran/src/H5Fff.f90 @@ -765,7 +765,7 @@ CONTAINS SUBROUTINE h5fget_name_f(obj_id, buf, size, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: obj_id ! Object identifier - CHARACTER(LEN=*), INTENT(INOUT) :: buf + CHARACTER(LEN=*), INTENT(OUT) :: buf ! Buffer to hold file name INTEGER(SIZE_T), INTENT(OUT) :: size ! Size of the file name INTEGER, INTENT(OUT) :: hdferr ! Error code: 0 on success, @@ -786,7 +786,7 @@ CONTAINS CHARACTER(LEN=*), INTENT(OUT) :: buf END FUNCTION h5fget_name_c END INTERFACE - buflen = LEN_TRIM(buf) + buflen = LEN(buf) hdferr = h5fget_name_c(obj_id, size, buf, buflen) END SUBROUTINE h5fget_name_f !****s* H5F/h5fget_filesize_f |