gcc/testsuite/gfortran.dg/graphite/id-11.f

   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