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


1
2
3
4
5
6
7
8
9
10
11
12
13
14

      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