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

gcc-8.2
author mir3636
date Thu, 25 Oct 2018 07:37:49 +0900
parents 04ced10e8804
children
comparison
equal deleted inserted replaced
111:04ced10e8804 131:84e7813d76e9
37 37
38 do i3 = 1, n3 38 do i3 = 1, n3
39 do i2 = 1, n2 39 do i2 = 1, n2
40 do i1 = 1, n1 40 do i1 = 1, n1
41 if (i1 + d1 .gt. n1 .or. i2 + d2 .gt. n2 .or. i3 + d3 .gt. n3) then 41 if (i1 + d1 .gt. n1 .or. i2 + d2 .gt. n2 .or. i3 + d3 .gt. n3) then
42 if (b (i1, i2, i3) .ne. filler) call abort 42 if (b (i1, i2, i3) .ne. filler) STOP 1
43 else 43 else
44 if (b (i1, i2, i3) .ne. a (i1 + d1, i2 + d2, i3 + d3)) call abort 44 if (b (i1, i2, i3) .ne. a (i1 + d1, i2 + d2, i3 + d3)) STOP 2
45 end if 45 end if
46 end do 46 end do
47 end do 47 end do
48 end do 48 end do
49 end subroutine test 49 end subroutine test