diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/bound_9.f90')
-rw-r--r-- | gcc/testsuite/gfortran.dg/bound_9.f90 | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/gcc/testsuite/gfortran.dg/bound_9.f90 b/gcc/testsuite/gfortran.dg/bound_9.f90 index 9d1e15a4103..0bceff3334d 100644 --- a/gcc/testsuite/gfortran.dg/bound_9.f90 +++ b/gcc/testsuite/gfortran.dg/bound_9.f90 @@ -48,23 +48,23 @@ program main call foo(a,b,n,m) - if (n .ne. 1 .or. m .ne. -2) call abort + if (n .ne. 1 .or. m .ne. -2) STOP 1 call foo(a(2:0), empty, n, m) - if (n .ne. 1 .or. m .ne. 1) call abort + if (n .ne. 1 .or. m .ne. 1) STOP 2 call foo(empty, a(2:0), n, m) - if (n .ne. 1 .or. m .ne. 1) call abort + if (n .ne. 1 .or. m .ne. 1) STOP 3 allocate (x(0)) y => a(3:2) call bar (x, y, n, m) - if (n .ne. 1 .or. m .ne. 1) call abort + if (n .ne. 1 .or. m .ne. 1) STOP 4 call baz(a,3,2,n) - if (n .ne. 1) call abort + if (n .ne. 1) STOP 5 call baz(a,2,3,n) - if (n .ne. 2) call abort + if (n .ne. 2) STOP 6 call qux(a, -3, n) - if (n .ne. 1) call abort + if (n .ne. 1) STOP 7 end program main ! { dg-final { scan-tree-dump-times "\\*one = 1" 2 "original" } } |