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/] [id-11.f] - Rev 328
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