! { dg-options "-O2 -fgraphite-identity" } | |
parameter(in = 128+5 | |
& , jn = 128+5 | |
& , kn = 128+5) | |
real*8 d (in,jn,kn) | |
real*8 dcopy(in,jn,kn) | |
call pdv (is, dcopy) | |
do k=ks,ke | |
do j=je+1,je+2 | |
do i=is-2,ie+2 | |
dcopy(i,j,k) = d(i,j,k) | |
enddo | |
enddo | |
enddo | |
do k=ks,ke | |
do j=js,je | |
do i=is-2,is-1 | |
dcopy(i,j,k) = d(i,j,k) | |
enddo | |
enddo | |
enddo | |
end |