1 subroutine foo(bar) 2 dimension bar(100) 3 common l_ 4 50 continue 5 do i=1,20 6 bar(i)=0 7 enddo 8 do 100 j=1,l_ 9 if(sum.gt.r) then 10 bar(n2)=j 11 end if 12 100 continue 13 if(bar(4).ne.0) go to 50 14 end 15