Mercurial > hg > CbC > CbC_gcc
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