summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--fortran/src/H5f90global.F908
1 files changed, 4 insertions, 4 deletions
diff --git a/fortran/src/H5f90global.F90 b/fortran/src/H5f90global.F90
index eb7f99f..af0a000 100644
--- a/fortran/src/H5f90global.F90
+++ b/fortran/src/H5f90global.F90
@@ -984,17 +984,17 @@ CONTAINS
CHARACTER(LEN=*), INTENT(OUT) :: f_string
INTEGER(SIZE_T) :: c_len, f_len
- ! Find the length of the C string by located the null terminator
- c_len = MAX(INDEX(c_string,C_NULL_CHAR, KIND=SIZE_T)-1,1)
+ ! Find the length of the C string by locating the null terminator
+ c_len = MAX(INDEX(c_string,C_NULL_CHAR, KIND=SIZE_T)-1_SIZE_T,1_SIZE_T)
! Find the length of the Fortran string
f_len = LEN(f_string)
- ! CASE (1): C string is equal to or larger then Fortran character buffer,
+ ! CASE (1): C string is equal to or larger than Fortran character buffer,
! so fill the entire Fortran buffer.
IF(c_len.GE.f_len)THEN !
f_string(1:f_len) = c_string(1:f_len)
- ! CASE (2): C string is smaller then Fortran character buffer,
+ ! CASE (2): C string is smaller than Fortran character buffer,
! so copy C string and blank pad remaining characters.
ELSE
f_string(1:c_len) = c_string(1:c_len)