URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [graphite/] [pr42732.f] - Rev 694
Compare with Previous | Blame | View Log
! { 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