diff options
author | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2021-08-30 14:56:32 (GMT) |
---|---|---|
committer | GitHub <noreply@github.com> | 2021-08-30 14:56:32 (GMT) |
commit | 01fe2549a36d7635b2cbe6f6a57cbcce29c1335b (patch) | |
tree | 889541417f0b7ca57f117b647d59365079768608 /fortran/src | |
parent | 794acf489fa093a3a119723c7cea74cb2880624b (diff) | |
download | hdf5-01fe2549a36d7635b2cbe6f6a57cbcce29c1335b.zip hdf5-01fe2549a36d7635b2cbe6f6a57cbcce29c1335b.tar.gz hdf5-01fe2549a36d7635b2cbe6f6a57cbcce29c1335b.tar.bz2 |
Rework of PR #826 (#972)
* 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>
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 f772558..a273431 100644 --- a/fortran/src/H5Fff.F90 +++ b/fortran/src/H5Fff.F90 @@ -824,7 +824,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, @@ -844,7 +844,7 @@ CONTAINS CHARACTER(KIND=C_CHAR), DIMENSION(*), 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 |