mirror/hdf5
2
0
Fork 0
mirror of https://github.com/HDFGroup/hdf5.git synced 2025-03-31 17:10:47 +08:00
Code Issues Packages Projects Releases Wiki Activity

[svn-r9823]

Browse Source 
Purpose: Bug fix

Description: Test reported failure because of the wrong
             testing condition when szip didn't have encoder

Solution: Fixed the code

Platforms tested: copper with
                  SZIP not present
                  SZIP encoder/decoder present
                  SZIP decoder present

Misc. update:
This commit is contained in:
Elena Pourmal 2005-01-13 22:06:07 -05:00
parent 96cc43235e
commit d00ec8d85a
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
fortran/test/tH5Z.f90
View File

@ -191,6 +191,7 @@
INTEGER(SIZE_T) :: filter_name_len = 4
INTEGER, DIMENSION(4) :: cd_values
INTEGER :: config_flag = 0 ! for h5zget_filter_info_f
INTEGER :: config_flag_both = 0 ! for h5zget_filter_info_f
!
! Verify that SZIP exists and has an encoder
@ -215,10 +216,13 @@
!
! Make sure h5zget_filter_info_f returns the right flag
!
config_flag_both=IOR(H5Z_FILTER_ENCODE_ENABLED_F,H5Z_FILTER_DECODE_ENABLED_F)
if( szip_flag ) then
if ( config_flag .NE. IOR(H5Z_FILTER_ENCODE_ENABLED_F, H5Z_FILTER_DECODE_ENABLED_F)) then
error = -1
CALL check("h5zget_filter_info_f config_flag", error, total_error)
if (config_flag .NE. config_flag_both) then
if(config_flag .NE. H5Z_FILTER_DECODE_ENABLED_F) then
error = -1
CALL check("h5zget_filter_info_f config_flag", error, total_error)
endif
endif
endif