mirror/hdf5
2
0
Fork 0
mirror of https://github.com/HDFGroup/hdf5.git synced 2025-02-23 16:20:57 +08:00
Code Issues Packages Projects Releases Wiki Activity

[svn-r15696] Description:

Browse Source 
Fix for test of H5Tget_native_type_f
This commit is contained in:
Scot Breitenfeld 2008-09-25 09:57:47 -05:00
parent f85aafd50d
commit 41e1d56e32
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
fortran/test/tH5T.f90
View File

@ -871,11 +871,13 @@
CALL check("H5Tget_order_f",error, total_error)
CALL VERIFY("H5Tget_native_type_f",order1, order2, total_error)
CALL H5Tget_size_f(native_type, type_size1, error)
CALL check("H5Tget_size_f",error, total_error)
CALL H5Tget_size_f(H5T_STD_I32BE, type_size2, error)
CALL check("H5Tget_size_f",error, total_error)
CALL VERIFY("H5Tget_native_type_f", INT(type_size1), INT(type_size2), total_error)
! this test depends on whether -i8 was specified needs to account for that FIX -scot-
!!$ CALL H5Tget_size_f(native_type, type_size1, error)
!!$ CALL check("H5Tget_size_f",error, total_error)
!!$ CALL H5Tget_size_f(H5T_STD_I32BE, type_size2, error)
!!$ CALL check("H5Tget_size_f",error, total_error)
!!$ CALL VERIFY("H5Tget_native_type_f", INT(type_size1), INT(type_size2), total_error)
CALL H5Tget_class_f(native_type, class, error)
CALL check("H5Tget_class_f",error, total_error)