diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/array_constructor_40.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/array_constructor_40.f90 | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/testsuite/gfortran.dg/array_constructor_40.f90 b/gcc/testsuite/gfortran.dg/array_constructor_40.f90 index 63c1259bf3d..ad42f9abcb4 100644 --- a/gcc/testsuite/gfortran.dg/array_constructor_40.f90 +++ b/gcc/testsuite/gfortran.dg/array_constructor_40.f90 @@ -44,8 +44,8 @@ program main lo = .false. lo(3,3) = .true. call bar(a,b,c,lo) - if (c /= 1) call abort + if (c /= 1) STOP 1 call baz(a,b,res); - if (abs(res - 8.1) > 1e-5) call abort + if (abs(res - 8.1) > 1e-5) STOP 2 end program main ! { dg-final { scan-tree-dump-times "while" 5 "original" } } |