Mercurial > hg > CbC > CbC_gcc

diff gcc/testsuite/gfortran.dg/char_eoshift_1.f90 @ 131:84e7813d76e9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gcc-8.2
author mir3636
date Thu, 25 Oct 2018 07:37:49 +0900
parents 04ced10e8804
children
line wrap: on
line diff
--- a/gcc/testsuite/gfortran.dg/char_eoshift_1.f90	Fri Oct 27 22:46:09 2017 +0900
+++ b/gcc/testsuite/gfortran.dg/char_eoshift_1.f90	Thu Oct 25 07:37:49 2018 +0900
@@ -39,9 +39,9 @@
       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