diff options
| author | Elena Pourmal <epourmal@hdfgroup.org> | 2003-04-12 04:11:30 (GMT) |
|---|---|---|
| committer | Elena Pourmal <epourmal@hdfgroup.org> | 2003-04-12 04:11:30 (GMT) |
| commit | 7bae8de48320044921e87e6c81cbc9bb39ee476a (patch) | |
| tree | a0eaca626475a733135e9f496965cdc671773019 /fortran/test/fortranlib_test.f90 | |
| parent | a496f905b8c9ca6428d27efaaf354eb475e2a531 (diff) | |
| download | hdf5-7bae8de48320044921e87e6c81cbc9bb39ee476a.zip hdf5-7bae8de48320044921e87e6c81cbc9bb39ee476a.tar.gz hdf5-7bae8de48320044921e87e6c81cbc9bb39ee476a.tar.bz2 | |
[svn-r6642]
Purpose: Catching up with C library
Description: I added tests for new functions
h5pset_szip_f
h5pget_filter_by_id_f
h5pall_filters_avail_f
I am not sure how to test h5pmodify_filter_f.
Solution:
Platforms tested: arabica (with and without SZIP Library),
modi4 (with SZIP and parallel)
burrwhite (with SZIP and PGI C and Fortran compilers)
Misc. update:
Diffstat (limited to 'fortran/test/fortranlib_test.f90')
| -rw-r--r-- | fortran/test/fortranlib_test.f90 | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/fortran/test/fortranlib_test.f90 b/fortran/test/fortranlib_test.f90 index 1db0f82..430ffcb 100644 --- a/fortran/test/fortranlib_test.f90 +++ b/fortran/test/fortranlib_test.f90 @@ -46,13 +46,16 @@ INTEGER :: error_total_error = 0 INTEGER :: vl_total_error = 0 INTEGER :: z_total_error = 0 + INTEGER :: sz_total_error = 0 INTEGER :: majnum, minnum, relnum CHARACTER(LEN=8) error_string CHARACTER(LEN=8) :: success = ' PASSED ' CHARACTER(LEN=8) :: failure = '*FAILED*' + CHARACTER(LEN=8) :: skip = '--SKIP--' CHARACTER(LEN=4) :: e_format ='(8a)' LOGICAL :: cleanup = .TRUE. ! LOGICAL :: cleanup = .FALSE. + LOGICAL :: szip_flag CALL h5open_f(error) write(*,*) ' ========================== ' @@ -275,6 +278,15 @@ write(*, fmt = e_format) error_string 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 + IF (sz_total_error .gt. 0) error_string = failure + write(*, fmt = '(18a)', advance = 'no') ' SZIP filter test' + write(*, fmt = '(53x,a)', advance = 'no') ' ' + write(*, fmt = e_format) error_string + if(sz_total_error .gt. 0) total_error = total_error + sz_total_error + ! write(*,*) ! write(*,*) '=========================================' ! write(*,*) 'Testing GROUP interface ' |