Mercurial > hg > CbC > CbC_gcc

comparison gcc/testsuite/gfortran.dg/pr70754.f90 @ 145:1830386684a0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gcc-9.2.0
author anatofuz
date Thu, 13 Feb 2020 11:34:05 +0900
parents 04ced10e8804
children
comparison
equal deleted inserted replaced
131:84e7813d76e9 145:1830386684a0
16 real (rr8), dimension(40,40), intent(out) :: a 16 real (rr8), dimension(40,40), intent(out) :: a
17 real (rr8), dimension(40,40) :: b 17 real (rr8), dimension(40,40) :: b
18 integer (ii4), dimension(40,40) :: c 18 integer (ii4), dimension(40,40) :: c
19 integer i, j 19 integer i, j
20 20
21 do i=1,20 21 j = 10
22 b(i,j) = 123 * a(i,j) + 34 * a(i,j+1) & 22 do i=11,30
23 + 34 * a(i,j-1) + a(i+1,j+1) & 23 b(i,j) = 123 * a(i,j) + 34 * a(i,j+1) &
24 + a(i+1,j-1) + a(i-1,j+1) & 24 + 34 * a(i,j-1) + a(i+1,j+1) &
25 + a(i-1,j-1) 25 + a(i+1,j-1) + a(i-1,j+1) &
26 c(i,j) = 123 26 + a(i-1,j-1)
27 c(i,j) = 123
27 end do 28 end do
28 29
29 where ((xyz(:,:,2) /= 0) .and. (c /= 0)) 30 where ((xyz(:,:,2) /= 0) .and. (c /= 0))
30 a = b/real(c) 31 a = b/real(c)
31 elsewhere 32 elsewhere