1! { dg-options "-O2 -fgraphite-identity" }
2
3      parameter(in =           128+5
4     &        , jn =           128+5
5     &        , kn =           128+5)
6      real*8   d (in,jn,kn)
7       real*8 dcopy(in,jn,kn)
8       call pdv (is, dcopy)
9       do k=ks,ke
10         do j=je+1,je+2
11           do i=is-2,ie+2
12             dcopy(i,j,k) = d(i,j,k)
13           enddo
14         enddo
15       enddo
16       do k=ks,ke
17         do j=js,je
18           do i=is-2,is-1
19             dcopy(i,j,k) = d(i,j,k)
20           enddo
21         enddo
22       enddo
23       end
24