diff options
author | Elena Pourmal <epourmal@hdfgroup.org> | 2008-05-04 04:54:06 (GMT) |
---|---|---|
committer | Elena Pourmal <epourmal@hdfgroup.org> | 2008-05-04 04:54:06 (GMT) |
commit | c08112a0c047a95c298ad43ec5675426aafff29d (patch) | |
tree | 1b36d7d7fc93f7209003cbe43f9c1070a6760c4d /fortran/test/fortranlib_test_1_8.f90 | |
parent | f162bead9a609d856b935dce0239c9467745cb1a (diff) | |
download | hdf5-c08112a0c047a95c298ad43ec5675426aafff29d.zip hdf5-c08112a0c047a95c298ad43ec5675426aafff29d.tar.gz hdf5-c08112a0c047a95c298ad43ec5675426aafff29d.tar.bz2 |
[svn-r14926] Maintenance: More cleanup in the test output and enabled another test for linew before daily tests start.
Diffstat (limited to 'fortran/test/fortranlib_test_1_8.f90')
-rw-r--r-- | fortran/test/fortranlib_test_1_8.f90 | 15 |
1 files changed, 8 insertions, 7 deletions
diff --git a/fortran/test/fortranlib_test_1_8.f90 b/fortran/test/fortranlib_test_1_8.f90 index 0bba560..34c5b90 100644 --- a/fortran/test/fortranlib_test_1_8.f90 +++ b/fortran/test/fortranlib_test_1_8.f90 @@ -110,12 +110,13 @@ PROGRAM fortranlibtest WRITE(*, fmt = e_format) error_string total_error = total_error + group_total_error -! CALL test_genprop_basic_class(cleanup, group_total_error) -! WRITE(*, fmt = '(30a)', advance = 'no') ' test_genprop_basic_class TEST' -! WRITE(*, fmt = '(55x,a)', advance = 'no') ' ' -! IF (group_total_error == 0) error_string = success -! WRITE(*, fmt = e_format) error_string -! total_error = total_error + group_total_error + CALL test_genprop_basic_class(cleanup, group_total_error) + WRITE(*, fmt = '(30a)', advance = 'no') ' Testing basic generic properties' + WRITE(*, fmt = '(43x,a)', advance = 'no') ' ' + IF (group_total_error == 0) error_string = success + WRITE(*, fmt = e_format) error_string + total_error = total_error + group_total_error + CALL test_h5s_encode(cleanup, group_total_error) WRITE(*, fmt = '(15a)', advance = 'no') ' Testing dataspace encoding and decoding' WRITE(*, fmt = '(36x,a)', advance = 'no') ' ' @@ -228,7 +229,7 @@ SUBROUTINE test_genprop_basic_class(cleanup, total_error) !/* 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 */ CALL H5Pcreate_class_f(H5P_ROOT_F, CLASS1_NAME, cid1, error) |