diff gcc/testsuite/gfortran.dg/pr46665.f90 @ 132:d34655255c78

update gcc-8.2
author mir3636
date Thu, 25 Oct 2018 10:21:07 +0900
parents 84e7813d76e9
children
line wrap: on
line diff
--- a/gcc/testsuite/gfortran.dg/pr46665.f90	Thu Oct 25 08:08:40 2018 +0900
+++ b/gcc/testsuite/gfortran.dg/pr46665.f90	Thu Oct 25 10:21:07 2018 +0900
@@ -10,12 +10,12 @@
     integer, dimension (3) :: expected
     integer :: i, i1, i2, i3
     do i = 1, 3
-      if (size (x, i) .ne. expected (i)) call abort
+      if (size (x, i) .ne. expected (i)) STOP 1
     end do
     do i1 = 1, expected (1)
       do i2 = 1, expected (2)
         do i3 = 1, expected (3)
-          if (x (i1, i2, i3) .ne. i1 + i2 * 10 + i3 * 100) call abort
+          if (x (i1, i2, i3) .ne. i1 + i2 * 10 + i3 * 100) STOP 2
         end do
       end do
     end do