--- Begin Message ---
Package: hdf5
Version: 1.14.5+repack-2
Tags: ftbfs
Usertags: hppa
The fortran test is the only one which fails on hppa:
https://buildd.debian.org/status/fetch.php?pkg=hdf5&arch=hppa&ver=1.14.5%2Brepack-2&stamp=1735623616&raw=0
Testing object functions
PASSED
h5ovisit_f 1 FAILED
h5ovisit_f 1a FAILED
h5ovisit_f 2 FAILED
h5ovisit_f 2a FAILED
h5ovisit_by_name_f 1 FAILED
h5ovisit_by_name_f 1a FAILED
Testing object visiting functions
*FAILED*
Which ones exactly can be seen with this patch:
--- ./fortran/test/tH5O_F03.F90.org 2025-01-02 11:39:56.228175966 +0000
+++ ./fortran/test/tH5O_F03.F90 2025-01-02 11:52:46.131359428 +0000
@@ -487,39 +487,39 @@
udata%field = H5O_INFO_ALL_F
udata%idx = 1
CALL h5ovisit_f(fid, H5_INDEX_NAME_F, H5_ITER_INC_F, fun_ptr, f_ptr,
ret_val, error)
- CALL check("h5ovisit_f", error, total_error)
+ CALL check("h5ovisit_f 1", error, total_error)
IF(ret_val.LT.0)THEN
- CALL check("h5ovisit_f", -1, total_error)
+ CALL check("h5ovisit_f 1a", -1, total_error)
ENDIF
! Test fields option
udata%field = H5O_INFO_ALL_F
udata%idx = 1
CALL h5ovisit_f(fid, H5_INDEX_NAME_F, H5_ITER_INC_F, fun_ptr, f_ptr,
ret_val, error, fields=udata%field)
- CALL check("h5ovisit_f", error, total_error)
+ CALL check("h5ovisit_f 2", error, total_error)
IF(ret_val.LT.0)THEN
- CALL check("h5ovisit_f", -1, total_error)
+ CALL check("h5ovisit_f 2a", -1, total_error)
ENDIF
udata%field = H5O_INFO_BASIC_F
udata%idx = 1
CALL h5ovisit_f(fid, H5_INDEX_NAME_F, H5_ITER_INC_F, fun_ptr, f_ptr,
ret_val, error, fields=udata%field)
- CALL check("h5ovisit_f", error, total_error)
+ CALL check("h5ovisit_f 3", error, total_error)
IF(ret_val.LT.0)THEN
- CALL check("h5ovisit_f", -1, total_error)
+ CALL check("h5ovisit_f 3a", -1, total_error)
ENDIF
udata%field = H5O_INFO_TIME_F
udata%idx = 1
CALL h5ovisit_f(fid, H5_INDEX_NAME_F, H5_ITER_INC_F, fun_ptr, f_ptr,
ret_val, error, fields=udata%field)
- CALL check("h5ovisit_f", error, total_error)
+ CALL check("h5ovisit_f 4", error, total_error)
IF(ret_val.LT.0)THEN
- CALL check("h5ovisit_f", -1, total_error)
+ CALL check("h5ovisit_f 4a", -1, total_error)
ENDIF
udata%field = H5O_INFO_NUM_ATTRS_F
udata%idx = 1
CALL h5ovisit_f(fid, H5_INDEX_NAME_F, H5_ITER_INC_F, fun_ptr, f_ptr,
ret_val, error, fields=udata%field)
- CALL check("h5ovisit_f", error, total_error)
+ CALL check("h5ovisit_f 5", error, total_error)
IF(ret_val.LT.0)THEN
- CALL check("h5ovisit_f", -1, total_error)
+ CALL check("h5ovisit_f 5a", -1, total_error)
ENDIF
! Test h5ovisit_by_name_f
@@ -527,32 +527,32 @@
udata%idx = 1
udata%field = H5O_INFO_ALL_F
CALL h5ovisit_by_name_f(fid, object_name, H5_INDEX_NAME_F, H5_ITER_INC_F,
fun_ptr, f_ptr, ret_val, error, fields=udata%field)
- CALL check("h5ovisit_by_name_f", error, total_error)
+ CALL check("h5ovisit_by_name_f 1", error, total_error)
IF(ret_val.LT.0)THEN
- CALL check("h5ovisit_by_name_f", -1, total_error)
+ CALL check("h5ovisit_by_name_f 1a", -1, total_error)
ENDIF
! Test fields option
udata%idx = 1
udata%field = H5O_INFO_BASIC_F
CALL h5ovisit_by_name_f(fid, object_name, H5_INDEX_NAME_F, H5_ITER_INC_F,
fun_ptr, f_ptr, ret_val, error, fields=udata%field)
- CALL check("h5ovisit_by_name_f", error, total_error)
+ CALL check("h5ovisit_by_name_f 2", error, total_error)
IF(ret_val.LT.0)THEN
- CALL check("h5ovisit_by_name_f", -1, total_error)
+ CALL check("h5ovisit_by_name_f 2a", -1, total_error)
ENDIF
udata%idx = 1
udata%field = H5O_INFO_TIME_F
CALL h5ovisit_by_name_f(fid, object_name, H5_INDEX_NAME_F, H5_ITER_INC_F,
fun_ptr, f_ptr, ret_val, error, fields=udata%field)
- CALL check("h5ovisit_by_name_f", error, total_error)
+ CALL check("h5ovisit_by_name_f 3", error, total_error)
IF(ret_val.LT.0)THEN
- CALL check("h5ovisit_by_name_f", -1, total_error)
+ CALL check("h5ovisit_by_name_f 3a", -1, total_error)
ENDIF
udata%idx = 1
udata%field = H5O_INFO_NUM_ATTRS_F
CALL h5ovisit_by_name_f(fid, object_name, H5_INDEX_NAME_F, H5_ITER_INC_F,
fun_ptr, f_ptr, ret_val, error, fields=udata%field)
- CALL check("h5ovisit_by_name_f", error, total_error)
+ CALL check("h5ovisit_by_name_f 4", error, total_error)
IF(ret_val.LT.0)THEN
- CALL check("h5ovisit_by_name_f", -1, total_error)
+ CALL check("h5ovisit_by_name_f 4a", -1, total_error)
ENDIF
CALL h5fclose_f(fid, error)
I tried to debug this, but I'm lacking too much fortran or hdf knowledge.
It seems the gmtime() function is involved.
Could it be caused by the fact that time_t is now 64bit on hppa.
Note: hppa is a big-endian 32-bit userspace platform.
Helge
--- End Message ---