Mercurial > hg > CbC > CbC_gcc

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

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
update gcc-8.2
author mir3636
date Thu, 25 Oct 2018 10:21:07 +0900
parents 84e7813d76e9
children
comparison
equal deleted inserted replaced
130:e108057fa461 132:d34655255c78
8 subroutine test (expected, x) 8 subroutine test (expected, x)
9 integer, dimension (:,:,:) :: x 9 integer, dimension (:,:,:) :: x
10 integer, dimension (3) :: expected 10 integer, dimension (3) :: expected
11 integer :: i, i1, i2, i3 11 integer :: i, i1, i2, i3
12 do i = 1, 3 12 do i = 1, 3
13 if (size (x, i) .ne. expected (i)) call abort 13 if (size (x, i) .ne. expected (i)) STOP 1
14 end do 14 end do
15 do i1 = 1, expected (1) 15 do i1 = 1, expected (1)
16 do i2 = 1, expected (2) 16 do i2 = 1, expected (2)
17 do i3 = 1, expected (3) 17 do i3 = 1, expected (3)
18 if (x (i1, i2, i3) .ne. i1 + i2 * 10 + i3 * 100) call abort 18 if (x (i1, i2, i3) .ne. i1 + i2 * 10 + i3 * 100) STOP 2
19 end do 19 end do
20 end do 20 end do
21 end do 21 end do
22 end subroutine test 22 end subroutine test
23 23