diff options
| author | Elena Pourmal <epourmal@hdfgroup.org> | 2008-05-04 05:24:04 (GMT) |
|---|---|---|
| committer | Elena Pourmal <epourmal@hdfgroup.org> | 2008-05-04 05:24:04 (GMT) |
| commit | 31b3c349083232358eb5b0ae4c0ee7c1f1dae4af (patch) | |
| tree | f783d955646c6bcbd0f6cd9982d0f345c664129f /fortran/test/fortranlib_test_1_8.f90 | |
| parent | c08112a0c047a95c298ad43ec5675426aafff29d (diff) | |
| download | hdf5-31b3c349083232358eb5b0ae4c0ee7c1f1dae4af.zip hdf5-31b3c349083232358eb5b0ae4c0ee7c1f1dae4af.tar.gz hdf5-31b3c349083232358eb5b0ae4c0ee7c1f1dae4af.tar.bz2 | |
[svn-r14927] Maintenance: Enabled all tests that pass on linew. Disabled tests are commented with !!EP for now.
Diffstat (limited to 'fortran/test/fortranlib_test_1_8.f90')
| -rw-r--r-- | fortran/test/fortranlib_test_1_8.f90 | 28 |
1 files changed, 14 insertions, 14 deletions
diff --git a/fortran/test/fortranlib_test_1_8.f90 b/fortran/test/fortranlib_test_1_8.f90 index 34c5b90..acfd1af 100644 --- a/fortran/test/fortranlib_test_1_8.f90 +++ b/fortran/test/fortranlib_test_1_8.f90 @@ -81,20 +81,20 @@ PROGRAM fortranlibtest ! write(*,*) 'Testing ATTRIBUTE interface ' ! write(*,*) '=========================================' -! error_string = failure -! CALL attribute_test_1_8(cleanup, attribute_total_error) -! WRITE(*, fmt = '(15a)', advance = 'no') ' ATTRIBUTE TEST' -! WRITE(*, fmt = '(55x,a)', advance = 'no') ' ' -! IF (attribute_total_error == 0) error_string = success -! WRITE(*, fmt = e_format) error_string -! total_error = total_error + attribute_total_error - -! CALL group_test(cleanup, group_total_error) -! WRITE(*, fmt = '(15a)', advance = 'no') ' GROUP 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 + error_string = failure + CALL attribute_test_1_8(cleanup, attribute_total_error) + WRITE(*, fmt = '(15a)', advance = 'no') ' Testing attributes' + WRITE(*, fmt = '(57x,a)', advance = 'no') ' ' + IF (attribute_total_error == 0) error_string = success + WRITE(*, fmt = e_format) error_string + total_error = total_error + attribute_total_error + + CALL group_test(cleanup, group_total_error) + WRITE(*, fmt = '(15a)', advance = 'no') ' Testing groups' + WRITE(*, fmt = '(61x,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' |