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

   1       subroutine foo(a)
   2       logical bar
   3       dimension a(12,2)
   4       dimension b(12,8)
   5       if(cd .eq. 1) then
   6          if (bar) write(iw,*) norb
   7          if(ef.ne.1) then
   8             do i=1,norb
   9             end do
  10          end if
  11       end if
  12          do 400 j = 1,8
  13             b(i,j) = 0
  14   400    continue
  15          do 410 j=1,norb
  16             a(i,j) = 0
  17   410    continue
  18       call rdrsym(b)
  19       end