mirror/hdf5
2
0
Fork 0
mirror of https://github.com/HDFGroup/hdf5.git synced 2024-11-21 01:04:10 +08:00
Code Issues Packages Projects Releases Wiki Activity

fixes compilation failures due to H5E additions (#4090)

Browse Source
This commit is contained in:
Scot Breitenfeld 2024-03-08 12:57:05 -06:00 committed by GitHub
parent 7de7c25646
commit f22f538ab7
No known key found for this signature in database
GPG Key ID: B5690EEEBB952194
2 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
fortran/src/H5Eff.F90
View File

@ -712,7 +712,7 @@ CONTAINS
END FUNCTION H5Ewalk
END INTERFACE
hdferr = INT(H5Ewalk(err_stack, direction, op, op_data))
hdferr = INT(H5Ewalk(err_stack, INT(direction, C_INT), op, op_data))
END SUBROUTINE h5ewalk_f

8
fortran/test/tH5E_F03.F90
View File

@ -201,10 +201,10 @@ SUBROUTINE test_error(total_error)
! ** SET THE CUSTOMIZED PRINTING OF ERROR STACK **
! set the customized error handling routine
func = c_funloc(my_hdf5_error_handler)
func = C_FUNLOC(my_hdf5_error_handler)
! set the data sent to the customized routine
f_ptr = c_loc(my_hdf5_error_handler_data)
f_ptr = C_LOC(my_hdf5_error_handler_data)
CALL H5Eset_auto_f(1, error, H5E_DEFAULT_F, func, f_ptr)
CALL check("H5Eset_auto_f", error, total_error)
@ -280,8 +280,8 @@ SUBROUTINE test_error_stack(total_error)
func = "FUNC"//C_NULL_CHAR
line = 99
ptr1 = C_LOC(file)
ptr2 = C_LOC(func)
ptr1 = C_LOC(file(1:1))
ptr2 = C_LOC(func(1:1))
ptr3 = C_LOC(line)
CALL h5ecreate_stack_f(estack_id, error)