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-12.f] - Rev 302
Compare with Previous | Blame | View Log
subroutine foo(a) logical bar dimension a(12,2) dimension b(12,8) if(cd .eq. 1) then if (bar) write(iw,*) norb if(ef.ne.1) then do i=1,norb end do end if end if do 400 j = 1,8 b(i,j) = 0 400 continue do 410 j=1,norb a(i,j) = 0 410 continue call rdrsym(b) end