diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/function_optimize_8.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/function_optimize_8.f90 | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/testsuite/gfortran.dg/function_optimize_8.f90 b/gcc/testsuite/gfortran.dg/function_optimize_8.f90 index a6fe1036d13..550aeecb92a 100644 --- a/gcc/testsuite/gfortran.dg/function_optimize_8.f90 +++ b/gcc/testsuite/gfortran.dg/function_optimize_8.f90 @@ -26,9 +26,9 @@ program main character(len=20) :: line n = 3 write (unit=line,fmt='(3I2)') myfunc(n) + myfunc(n) - if (line /= ' 61218') call abort + if (line /= ' 61218') STOP 1 write (unit=line,fmt='(A)') mychar(2) // mychar(2) - if (line /= '2323') call abort + if (line /= '2323') STOP 2 end program main ! { dg-final { scan-tree-dump-times "myfunc" 2 "original" } } ! { dg-final { scan-tree-dump-times "mychar" 2 "original" } } |