diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/write_padding.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/write_padding.f90 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/testsuite/gfortran.dg/write_padding.f90 b/gcc/testsuite/gfortran.dg/write_padding.f90 index e1c37917dc4..70777d65178 100644 --- a/gcc/testsuite/gfortran.dg/write_padding.f90 +++ b/gcc/testsuite/gfortran.dg/write_padding.f90 @@ -8,6 +8,6 @@ program write_padding real :: atime str = '123' write( str, '(a3,i1)' ) trim(str),4 - if (str.ne."1234") call abort() + if (str.ne."1234") STOP 1 end program write_padding |