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 | |
| 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).
| -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 |