URL
https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk
Subversion Repositories openrisc_2011-10-31
[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [graphite/] [id-9.f] - Rev 302
Compare with Previous | Blame | View Log
subroutine foo(bar) real*8 bar(3,3),coefm do ii=istart,iend do i=1,21 bar(k,l)=4 enddo do m=1,ne do l=1,3 do k=1,l enddo bar(k,l)=bar(k,l)+(v3b-1.d0) enddo enddo do m=1,ne do k=1,l l = l*(v3b**(-coefm)) enddo enddo enddo end