diff options
author | Elena Pourmal <epourmal@hdfgroup.org> | 2008-05-04 04:44:26 (GMT) |
---|---|---|
committer | Elena Pourmal <epourmal@hdfgroup.org> | 2008-05-04 04:44:26 (GMT) |
commit | f162bead9a609d856b935dce0239c9467745cb1a (patch) | |
tree | 5ed849e80faaff38aef799a95f542926fcc042c2 /fortran/test/fortranlib_test_1_8.f90 | |
parent | 102bd3540264bdeb8bc0d05cb5db7d3dae5e8529 (diff) | |
download | hdf5-f162bead9a609d856b935dce0239c9467745cb1a.zip hdf5-f162bead9a609d856b935dce0239c9467745cb1a.tar.gz hdf5-f162bead9a609d856b935dce0239c9467745cb1a.tar.bz2 |
[svn-r14925] Maintenance: Cleaned up reporting of the tests nd enable some tests that pass on linew.
Diffstat (limited to 'fortran/test/fortranlib_test_1_8.f90')
-rw-r--r-- | fortran/test/fortranlib_test_1_8.f90 | 42 |
1 files changed, 21 insertions, 21 deletions
diff --git a/fortran/test/fortranlib_test_1_8.f90 b/fortran/test/fortranlib_test_1_8.f90 index 60366ca..0bba560 100644 --- a/fortran/test/fortranlib_test_1_8.f90 +++ b/fortran/test/fortranlib_test_1_8.f90 @@ -71,8 +71,8 @@ PROGRAM fortranlibtest error_string = failure CALL file_space(cleanup, fspace_total_error) IF (fspace_total_error == 0) error_string = success - WRITE(*, fmt = '(21a)', advance = 'no') ' File free space test' - WRITE(*, fmt = '(49x,a)', advance = 'no') ' ' + WRITE(*, fmt = '(21a)', advance = 'no') ' Testing file free space' + WRITE(*, fmt = '(52x,a)', advance = 'no') ' ' WRITE(*, fmt = e_format) error_string total_error = total_error + fspace_total_error @@ -96,19 +96,19 @@ PROGRAM fortranlibtest ! WRITE(*, fmt = e_format) error_string ! total_error = total_error + group_total_error -! CALL test_h5o(cleanup, group_total_error ) -! WRITE(*, fmt = '(15a)', advance = 'no') ' H5O 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_h5o(cleanup, group_total_error ) + WRITE(*, fmt = '(15a)', advance = 'no') ' Testing object interface' + WRITE(*, fmt = '(51x,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 dtransform(cleanup, group_total_error) -! WRITE(*, fmt = '(15a)', advance = 'no') ' Dtransform 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 dtransform(cleanup, group_total_error) + WRITE(*, fmt = '(15a)', advance = 'no') ' Testing data transform' + WRITE(*, fmt = '(53x,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') ' test_genprop_basic_class TEST' @@ -116,12 +116,12 @@ PROGRAM fortranlibtest ! 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') ' test_h5s_encode 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_h5s_encode(cleanup, group_total_error) + WRITE(*, fmt = '(15a)', advance = 'no') ' Testing dataspace encoding and decoding' + WRITE(*, fmt = '(36x,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_hard_query(group_total_error) @@ -337,7 +337,7 @@ SUBROUTINE test_h5s_encode(cleanup, total_error) INTEGER :: error !/* Output message about test being performed */ - WRITE(*,*) "Testing Dataspace Encoding and Decoding" + !WRITE(*,*) "Testing Dataspace Encoding and Decoding" !/*------------------------------------------------------------------------- ! * Test encoding and decoding of simple dataspace and hyperslab selection. |