summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorElena Pourmal <epourmal@hdfgroup.org>2008-05-04 04:54:06 (GMT)
committerElena Pourmal <epourmal@hdfgroup.org>2008-05-04 04:54:06 (GMT)
commitc08112a0c047a95c298ad43ec5675426aafff29d (patch)
tree1b36d7d7fc93f7209003cbe43f9c1070a6760c4d
parentf162bead9a609d856b935dce0239c9467745cb1a (diff)
downloadhdf5-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.
-rw-r--r--fortran/test/fortranlib_test_1_8.f9015
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)