diff options
| author | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2008-05-30 20:30:11 (GMT) |
|---|---|---|
| committer | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2008-05-30 20:30:11 (GMT) |
| commit | c9702f551ca0c86f17aa04112ccb2e6fcb0553f3 (patch) | |
| tree | bb51556f544b8c9c40690ee0c33fcc9f79d1c97a /fortran/test | |
| parent | 56caada315bb00450c667e89513ae2eb3d520483 (diff) | |
| download | hdf5-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/test')
| -rw-r--r-- | fortran/test/tf.f90 | 4 |
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 |