24 lines
549 B
Fortran
24 lines
549 B
Fortran
! { 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
|