Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Fixed failures with xl compilers. #4458

Merged
merged 2 commits into from
May 2, 2024
Merged

Fixed failures with xl compilers. #4458

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
2 commits
Select commit Hold shift + click to select a range
e040d3c
type cast constant
brtnfld May 2, 2024
c31c29b
fixed return types
brtnfld May 2, 2024
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
6 changes: 3 additions & 3 deletions fortran/src/H5Rff.F90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand Down Expand Up @@ -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
Expand Down Expand Up @@ -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
Expand Down
2 changes: 1 addition & 1 deletion fortran/test/tH5R.F90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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)
Expand Down
Loading