URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [gfortran.dg/] [graphite/] [id-11.f] - Rev 302
Go to most recent revision | Compare with Previous | Blame | View Log
subroutine foo(bar) dimension bar(100) common l_ 50 continue do i=1,20 bar(i)=0 enddo do 100 j=1,l_ if(sum.gt.r) then bar(n2)=j end if 100 continue if(bar(4).ne.0) go to 50 end
Go to most recent revision | Compare with Previous | Blame | View Log