summaryrefslogtreecommitdiffstats
path: root/fortran
diff options
context:
space:
mode:
authorScot Breitenfeld <brtnfld@hdfgroup.org>2008-05-30 20:30:11 (GMT)
committerScot Breitenfeld <brtnfld@hdfgroup.org>2008-05-30 20:30:11 (GMT)
commitc9702f551ca0c86f17aa04112ccb2e6fcb0553f3 (patch)
treebb51556f544b8c9c40690ee0c33fcc9f79d1c97a /fortran
parent56caada315bb00450c667e89513ae2eb3d520483 (diff)
downloadhdf5-c9702f551ca0c86f17aa04112ccb2e6fcb0553f3.zip
hdf5-c9702f551ca0c86f17aa04112ccb2e6fcb0553f3.tar.gz
hdf5-c9702f551ca0c86f17aa04112ccb2e6fcb0553f3.tar.bz2
[svn-r15110] Description:
Changed the error output formatting so that the test status writes to standard out looks correct when using the sun compiler (it did not correctly tab the output).
Diffstat (limited to 'fortran')
-rw-r--r--fortran/test/tf.f904
1 files changed, 1 insertions, 3 deletions
diff --git a/fortran/test/tf.f90 b/fortran/test/tf.f90
index 2b539a4..d48ede1 100644
--- a/fortran/test/tf.f90
+++ b/fortran/test/tf.f90
@@ -43,7 +43,6 @@
CHARACTER(LEN=8), PARAMETER :: success = ' PASSED '
CHARACTER(LEN=8), PARAMETER :: failure = '*FAILED*'
CHARACTER(LEN=8), PARAMETER :: skip = '--SKIP--'
- CHARACTER(LEN=4), PARAMETER :: e_format ='(8a)'
error_string = failure
@@ -53,8 +52,7 @@
error_string = skip
ENDIF
- WRITE(*, fmt = '(A,T72)', advance = 'no') test_title
- WRITE(*, fmt = e_format) error_string
+ WRITE(*, fmt = '(A, T72, A)') test_title, error_string
IF(test_result.GT.0) total_error = total_error + test_result