From e040d3c8c8098d9f98f5ea08877d5891b37f7816 Mon Sep 17 00:00:00 2001 From: Scot Breitenfeld Date: Thu, 2 May 2024 11:59:37 -0500 Subject: [PATCH 1/2] type cast constant --- fortran/test/tH5R.F90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/fortran/test/tH5R.F90 b/fortran/test/tH5R.F90 index a3ccd9001c7..8eb8d8d2f9a 100644 --- a/fortran/test/tH5R.F90 +++ b/fortran/test/tH5R.F90 @@ -650,7 +650,7 @@ SUBROUTINE v3reftest(cleanup, total_error) CALL h5rget_obj_name_f(C_LOC(ref_ptr(3)), "", error, H5P_DEFAULT_F, buf_size) CALL check("h5rget_obj_name_f", error, total_error) - CALL verify("h5rget_obj_name_f", buf_size, LEN(dsetnamei,KIND=SIZE_T)+1, total_error) + CALL verify("h5rget_obj_name_f", buf_size, LEN(dsetnamei,KIND=SIZE_T)+1_SIZE_T, total_error) CALL h5rget_obj_name_f(C_LOC(ref_ptr(1)), "", error, H5P_DEFAULT_F, buf_size) CALL check("h5rget_obj_name_f", error, total_error) CALL verify("h5rget_obj_name_f", buf_size, 7_SIZE_T, total_error) From c31c29b2cbb98e77cf90d4e2987b38bd93547d1d Mon Sep 17 00:00:00 2001 From: Scot Breitenfeld Date: Thu, 2 May 2024 12:11:16 -0500 Subject: [PATCH 2/2] fixed return types --- fortran/src/H5Rff.F90 | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/fortran/src/H5Rff.F90 b/fortran/src/H5Rff.F90 index f9e7f719c05..ab803a7596a 100644 --- a/fortran/src/H5Rff.F90 +++ b/fortran/src/H5Rff.F90 @@ -1111,7 +1111,7 @@ SUBROUTINE h5rget_obj_name_f( ref_ptr, name, hdferr, rapl_id, name_len) INTEGER(SIZE_T) :: l INTERFACE - INTEGER FUNCTION H5Rget_obj_name(ref_ptr, rapl_id, name, size_default) & + INTEGER(SIZE_T) FUNCTION H5Rget_obj_name(ref_ptr, rapl_id, name, size_default) & BIND(C, NAME='H5Rget_obj_name') IMPORT :: c_char, c_ptr IMPORT :: HID_T, SIZE_T @@ -1164,7 +1164,7 @@ SUBROUTINE h5rget_attr_name_f(ref_ptr, name, hdferr, name_len) INTEGER(SIZE_T) :: l INTERFACE - INTEGER FUNCTION H5Rget_attr_name(ref_ptr, name, size_default) & + INTEGER(SIZE_T) FUNCTION H5Rget_attr_name(ref_ptr, name, size_default) & BIND(C, NAME='H5Rget_attr_name') IMPORT :: c_char, c_ptr IMPORT :: HID_T, SIZE_T @@ -1217,7 +1217,7 @@ SUBROUTINE h5rget_file_name_f(ref_ptr, name, hdferr, name_len) INTEGER(SIZE_T) :: l INTERFACE - INTEGER FUNCTION H5Rget_file_name(ref_ptr, name, size_default) & + INTEGER(SIZE_T) FUNCTION H5Rget_file_name(ref_ptr, name, size_default) & BIND(C, NAME='H5Rget_file_name') IMPORT :: c_char, c_ptr IMPORT :: HID_T, SIZE_T