summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--fortran/test/fortranlib_test_1_8.f9042
-rw-r--r--fortran/test/tH5O.f902
2 files changed, 22 insertions, 22 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.
diff --git a/fortran/test/tH5O.f90 b/fortran/test/tH5O.f90
index d0c3f16..17271b5 100644
--- a/fortran/test/tH5O.f90
+++ b/fortran/test/tH5O.f90
@@ -21,7 +21,7 @@ SUBROUTINE test_h5o(cleanup, total_error)
INTEGER, INTENT(OUT) :: total_error
! /* Output message about test being performed */
- WRITE(*,*) "Testing Objects"
+ ! WRITE(*,*) "Testing Objects"
!!$ test_h5o_open(); /* Test generic OPEN FUNCTION */
!!$ test_h5o_open_by_addr(); /* Test opening objects by address */