URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [graphite/] [id-11.f] - Rev 694
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