From f162bead9a609d856b935dce0239c9467745cb1a Mon Sep 17 00:00:00 2001
From: Elena Pourmal <epourmal@hdfgroup.org>
Date: Sat, 3 May 2008 23:44:26 -0500
Subject: [svn-r14925] Maintenance: Cleaned up reporting of the tests nd enable
 some tests that pass on linew.

---
 fortran/test/fortranlib_test_1_8.f90 | 42 ++++++++++++++++++------------------
 fortran/test/tH5O.f90                |  2 +-
 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 */
-- 
cgit v0.12