diff options
| author | Elena Pourmal <epourmal@hdfgroup.org> | 2005-01-11 01:37:00 (GMT) |
|---|---|---|
| committer | Elena Pourmal <epourmal@hdfgroup.org> | 2005-01-11 01:37:00 (GMT) |
| commit | 2fcaf3e0f3fc05b5af2806e55c0658a13e49e3fb (patch) | |
| tree | 8e3bbe60c14603a6905c38292cd8ca03d271f9aa /fortran/test/fortranlib_test.f90 | |
| parent | c04b612eb42b8b63ed4b4f966d53381f60f5119a (diff) | |
| download | hdf5-2fcaf3e0f3fc05b5af2806e55c0658a13e49e3fb.zip hdf5-2fcaf3e0f3fc05b5af2806e55c0658a13e49e3fb.tar.gz hdf5-2fcaf3e0f3fc05b5af2806e55c0658a13e49e3fb.tar.bz2 | |
[svn-r9803] Purpose: Bug fix
Description: Fortran szip test had a wrong logic; as a result
wrong return values were reported in the absence of
the SZIP library, and it was skipped when encoder was
disable
Solution: Fixed the test
Now SZIP fortran test should report "SKIP" only
when SZIP is not configured in.
Platforms tested: tg-login in parallel mode, copper,
mir with new PGI compilers and shared
SZIP libraries. All platforms were tested with
SZIP not available
SZIP with encoder/decoder
SZIP with decoder only
Misc. update:
Diffstat (limited to 'fortran/test/fortranlib_test.f90')
| -rw-r--r-- | fortran/test/fortranlib_test.f90 | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/fortran/test/fortranlib_test.f90 b/fortran/test/fortranlib_test.f90 index d3f22ae..6481c8b 100644 --- a/fortran/test/fortranlib_test.f90 +++ b/fortran/test/fortranlib_test.f90 @@ -287,8 +287,9 @@ total_error = total_error + z_total_error CALL szip_test(szip_flag, cleanup, sz_total_error) - IF (.NOT. szip_flag) error_string = skip IF (sz_total_error == 0) error_string = success + ! Reset the flag is compression was not available + IF (.NOT. szip_flag) error_string = skip IF (sz_total_error .gt. 0) error_string = failure write(*, fmt = '(18a)', advance = 'no') ' SZIP filter test' write(*, fmt = '(53x,a)', advance = 'no') ' ' |