26 lines
677 B
Fortran
26 lines
677 B
Fortran
! { dg-options "-O2 -fpredictive-commoning" }
|
|
subroutine foo(x,y,n)
|
|
integer n
|
|
real*8 y(n,n,n),x(n,n,n)
|
|
integer k, j, i
|
|
do k = 2, n-1
|
|
do j = 2, n-1
|
|
do I = 2, n-1
|
|
y(i,j,k) = y(i,j,k)
|
|
+ + (x(i-1,j-1,k)
|
|
+ + x(i,j-1,k-1)
|
|
+ + x(i,j+1,k-1)
|
|
+ + x(i,j+1,k+1)
|
|
+ + x(i+1,j,k+1))
|
|
+ + (x(i-1,j-1,k-1)
|
|
+ + x(i+1,j-1,k-1)
|
|
+ + x(i-1,j+1,k-1)
|
|
+ + x(i+1,j+1,k-1)
|
|
+ + x(i-1,j+1,k+1)
|
|
+ + x(i+1,j+1,k+1))
|
|
enddo
|
|
enddo
|
|
enddo
|
|
return
|
|
end
|