summaryrefslogtreecommitdiffstats
path: root/fortran/test
diff options
context:
space:
mode:
authorElena Pourmal <epourmal@hdfgroup.org>2005-01-14 03:06:07 (GMT)
committerElena Pourmal <epourmal@hdfgroup.org>2005-01-14 03:06:07 (GMT)
commitd00ec8d85a03808eaa04fb3971ae6bb2c8ce2f42 (patch)
tree738e77d017f87aa2bf2020729ad26ffdce5c1ca3 /fortran/test
parent96cc43235ea92ea0f84623ad0be6d029a111c150 (diff)
downloadhdf5-d00ec8d85a03808eaa04fb3971ae6bb2c8ce2f42.zip
hdf5-d00ec8d85a03808eaa04fb3971ae6bb2c8ce2f42.tar.gz
hdf5-d00ec8d85a03808eaa04fb3971ae6bb2c8ce2f42.tar.bz2
[svn-r9823]
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:
Diffstat (limited to 'fortran/test')
-rw-r--r--fortran/test/tH5Z.f9010
1 files changed, 7 insertions, 3 deletions
diff --git a/fortran/test/tH5Z.f90 b/fortran/test/tH5Z.f90
index 99e3dba..5d17345 100644
--- a/fortran/test/tH5Z.f90
+++ b/fortran/test/tH5Z.f90
@@ -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