diff options
| author | Elena Pourmal <epourmal@hdfgroup.org> | 2003-03-19 16:13:57 (GMT) |
|---|---|---|
| committer | Elena Pourmal <epourmal@hdfgroup.org> | 2003-03-19 16:13:57 (GMT) |
| commit | e10de8f3d65bd8ad0ef5484a56f1a9807693a967 (patch) | |
| tree | b5de5dabf4968cc34a8dca67bd896ef14728b28a /fortran/test/fortranlib_test.f90 | |
| parent | 65f5514a4ff647cff51c37e3af30d5e138733d06 (diff) | |
| download | hdf5-e10de8f3d65bd8ad0ef5484a56f1a9807693a967.zip hdf5-e10de8f3d65bd8ad0ef5484a56f1a9807693a967.tar.gz hdf5-e10de8f3d65bd8ad0ef5484a56f1a9807693a967.tar.bz2 | |
[svn-r6495]
Purpose: Catching up with the C library
Description: Added tests for the follwoing new fortran functions
h5iget_name_f
h5tis_variavle_str_f
h5zunregister_f
h5zfilter_avail_f
h5pset_shuffle_f
h5pset_fletcher32
h5pset_edc_check_f
h5pget_edc_check_f
h5dfill_f
Solution:
Platforms tested: arabica(C and F90), burrwhite (pgcc and pgf90), modi4 (F90 and parallel)
Misc. update:
Diffstat (limited to 'fortran/test/fortranlib_test.f90')
| -rw-r--r-- | fortran/test/fortranlib_test.f90 | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/fortran/test/fortranlib_test.f90 b/fortran/test/fortranlib_test.f90 index d588987..b41de81 100644 --- a/fortran/test/fortranlib_test.f90 +++ b/fortran/test/fortranlib_test.f90 @@ -44,6 +44,7 @@ INTEGER :: group_total_error = 0 INTEGER :: error_total_error = 0 INTEGER :: vl_total_error = 0 + INTEGER :: z_total_error = 0 INTEGER :: majnum, minnum, relnum CHARACTER(LEN=8) error_string CHARACTER(LEN=8) :: success = ' PASSED ' @@ -256,6 +257,14 @@ write(*, fmt = e_format) error_string total_error = total_error + identifier_total_error + error_string = failure + CALL filters_test(cleanup, z_total_error) + IF (z_total_error == 0) error_string = success + write(*, fmt = '(13a)', advance = 'no') ' Filters test' + write(*, fmt = '(57x,a)', advance = 'no') ' ' + write(*, fmt = e_format) error_string + total_error = total_error + z_total_error + ! write(*,*) ! write(*,*) '=========================================' ! write(*,*) 'Testing GROUP interface ' |