URL
https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk
Subversion Repositories openrisc_me
[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [graphite/] [pr42334.f90] - Rev 414
Go to most recent revision | Compare with Previous | Blame | View Log
! { dg-options "-O2 -floop-interchange -ftree-loop-distribution" }
subroutine blockdis(bl1eg,bl2eg)
implicit real*8 (a-h,o-z)
parameter(nblo=300)
common/str /mblo
common/str2 /mel(nblo)
dimension h(nblo,2,6),g(nblo,2,6)
dimension bl1eg(nblo,2,6),bl2eg(nblo,2,6)
do k=1,mblo
jm=mel(k)
do l=1,2
do m=1,6
bl1eg(k,l,m)=h(jm,l,m)
bl2eg(k,l,m)=g(jm,l,m)
enddo
enddo
enddo
return
end subroutine blockdis
Go to most recent revision | Compare with Previous | Blame | View Log