1! { dg-options "-O2 -fpredictive-commoning" }
2      subroutine foo(x,y,n)
3      integer n
4      real*8 y(n,n,n),x(n,n,n)
5      integer k, j, i
6      do k = 2, n-1
7        do j = 2, n-1
8          do I = 2, n-1
9            y(i,j,k) = y(i,j,k)
10     +        + (x(i-1,j-1,k)
11     +           +  x(i,j-1,k-1)
12     +           +  x(i,j+1,k-1)
13     +           +  x(i,j+1,k+1)
14     +           +  x(i+1,j,k+1))
15     +        + (x(i-1,j-1,k-1)
16     +           +  x(i+1,j-1,k-1)
17     +           +  x(i-1,j+1,k-1)
18     +           +  x(i+1,j+1,k-1)
19     +           +  x(i-1,j+1,k+1)
20     +           +  x(i+1,j+1,k+1))
21          enddo
22        enddo
23      enddo
24      return
25      end
26