Mercurial > hg > CbC > CbC_gcc

comparison gcc/testsuite/gfortran.dg/char_eoshift_2.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
comparison
equal deleted inserted replaced
111:04ced10e8804 131:84e7813d76e9
44 do i3 = 1, n3 44 do i3 = 1, n3
45 do i2 = 1, n2 45 do i2 = 1, n2
46 do i1 = 1, n1 46 do i1 = 1, n1
47 i2p = i2 + shift1 (i1, i3) 47 i2p = i2 + shift1 (i1, i3)
48 if (i2p .gt. n2) then 48 if (i2p .gt. n2) then
49 if (b (i1, i2, i3) .ne. filler) call abort 49 if (b (i1, i2, i3) .ne. filler) STOP 1
50 else 50 else
51 if (b (i1, i2, i3) .ne. a (i1, i2p, i3)) call abort 51 if (b (i1, i2, i3) .ne. a (i1, i2p, i3)) STOP 2
52 end if 52 end if
53 end do 53 end do
54 end do 54 end do
55 end do 55 end do
56 end subroutine test 56 end subroutine test