diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/char_eoshift_1.f90')
-rw-r--r-- | gcc/testsuite/gfortran.dg/char_eoshift_1.f90 | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/testsuite/gfortran.dg/char_eoshift_1.f90 b/gcc/testsuite/gfortran.dg/char_eoshift_1.f90 index ba51fa13193..f50cf20a69c 100644 --- a/gcc/testsuite/gfortran.dg/char_eoshift_1.f90 +++ b/gcc/testsuite/gfortran.dg/char_eoshift_1.f90 @@ -39,9 +39,9 @@ contains do i2 = 1, n2 do i1 = 1, n1 if (i1 + d1 .gt. n1 .or. i2 + d2 .gt. n2 .or. i3 + d3 .gt. n3) then - if (b (i1, i2, i3) .ne. filler) call abort + if (b (i1, i2, i3) .ne. filler) STOP 1 else - if (b (i1, i2, i3) .ne. a (i1 + d1, i2 + d2, i3 + d3)) call abort + if (b (i1, i2, i3) .ne. a (i1 + d1, i2 + d2, i3 + d3)) STOP 2 end if end do end do |