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-11.f] - Rev 302
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