summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/graphite/id-11.f
blob: 872e12f359ef78a98e561a1c4a70952eeb8177f5 (plain)
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