From e28f000e28b5c7c1e9f3f4e7ef14c17ecbf980fb Mon Sep 17 00:00:00 2001 From: John Haiducek Date: Wed, 7 Jul 2021 14:38:43 -0400 Subject: [PATCH] Use LEN() rather than LEN_TRIM() to determine buffer length (prevents problems if the passed buffer is freshly allocated or contains trailing whitespace). --- fortran/src/H5Fff.F90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/fortran/src/H5Fff.F90 b/fortran/src/H5Fff.F90 index 62e8de8e4ab..cea77dd93e0 100644 --- a/fortran/src/H5Fff.F90 +++ b/fortran/src/H5Fff.F90 @@ -844,7 +844,7 @@ INTEGER FUNCTION h5fget_name_c(obj_id, size, buf, buflen) & 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