Skip to content

Commit

Permalink
type cast constant
Browse files Browse the repository at this point in the history
brtnfld committed May 2, 2024

Verified

This commit was created on GitHub.com and signed with GitHub’s verified signature. The key has expired.
1 parent 0da5af4 commit e040d3c
Showing 1 changed file with 1 addition and 1 deletion.
2 changes: 1 addition & 1 deletion fortran/test/tH5R.F90
Original file line number Diff line number Diff line change
@@ -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)

0 comments on commit e040d3c

Please sign in to comment.