summaryrefslogtreecommitdiffstats
path: root/fortran/test/tf.f90
diff options
context:
space:
mode:
Diffstat (limited to 'fortran/test/tf.f90')
-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