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