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