diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/trim_optimize_5.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/trim_optimize_5.f90 | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/testsuite/gfortran.dg/trim_optimize_5.f90 b/gcc/testsuite/gfortran.dg/trim_optimize_5.f90 index 63f12584a07..74b530dcfd5 100644 --- a/gcc/testsuite/gfortran.dg/trim_optimize_5.f90 +++ b/gcc/testsuite/gfortran.dg/trim_optimize_5.f90 @@ -11,9 +11,9 @@ program main character(len=10) :: line a%x = 'a' write(unit=line,fmt='(A,A)') trim(a%x),"X" - if (line /= 'aX ') call abort + if (line /= 'aX ') STOP 1 b = 'ab' write (unit=line,fmt='(A,A)') trim(b),"Y" - if (line /= 'abY ') call abort + if (line /= 'abY ') STOP 2 end program main ! { dg-final { scan-tree-dump-times "string_len_trim" 2 "original" } } |