mirror/hdf5
2
0
Fork 0
mirror of https://github.com/HDFGroup/hdf5.git synced 2025-02-23 16:20:57 +08:00
Code Issues Packages Projects Releases Wiki Activity

[svn-r14926] Maintenance: More cleanup in the test output and enabled another test for linew before daily tests start.

Browse Source
This commit is contained in:
Elena Pourmal 2008-05-03 23:54:06 -05:00
parent f162bead9a
commit c08112a0c0
1 changed files with 8 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
fortran/test/fortranlib_test_1_8.f90
View File

@ -110,12 +110,13 @@ PROGRAM fortranlibtest
WRITE(*, fmt = e_format) error_string WRITE(*, fmt = e_format) error_string
total_error = total_error + group_total_error total_error = total_error + group_total_error
! CALL test_genprop_basic_class(cleanup, group_total_error) CALL test_genprop_basic_class(cleanup, group_total_error)
! WRITE(*, fmt = '(30a)', advance = 'no') ' test_genprop_basic_class TEST' WRITE(*, fmt = '(30a)', advance = 'no') ' Testing basic generic properties'
! WRITE(*, fmt = '(55x,a)', advance = 'no') ' ' WRITE(*, fmt = '(43x,a)', advance = 'no') ' '
! IF (group_total_error == 0) error_string = success IF (group_total_error == 0) error_string = success
! WRITE(*, fmt = e_format) error_string WRITE(*, fmt = e_format) error_string
! total_error = total_error + group_total_error total_error = total_error + group_total_error
CALL test_h5s_encode(cleanup, group_total_error) CALL test_h5s_encode(cleanup, group_total_error)
WRITE(*, fmt = '(15a)', advance = 'no') ' Testing dataspace encoding and decoding' WRITE(*, fmt = '(15a)', advance = 'no') ' Testing dataspace encoding and decoding'
WRITE(*, fmt = '(36x,a)', advance = 'no') ' ' WRITE(*, fmt = '(36x,a)', advance = 'no') ' '
@ -228,7 +229,7 @@ SUBROUTINE test_genprop_basic_class(cleanup, total_error)
!/* Output message about test being performed */ !/* Output message about test being performed */
WRITE(*,*) "Testing Basic Generic Property List Class Creation Functionality" !WRITE(*,*) "Testing Basic Generic Property List Class Creation Functionality"
! /* Create a new generic class, derived from the root of the class hierarchy */ ! /* Create a new generic class, derived from the root of the class hierarchy */
CALL H5Pcreate_class_f(H5P_ROOT_F, CLASS1_NAME, cid1, error) CALL H5Pcreate_class_f(H5P_ROOT_F, CLASS1_NAME, cid1, error)