gcc-4.9/gcc/testsuite/gfortran.dg/graphite/id-pr47691.f


1
2
3
4
5
6
7

! { dg-options "-O -fgraphite-identity -ffast-math -fno-tree-scev-cprop" }
      dimension b(12,8)
      do i=1,norb
      end do
      b(i,j) = 0
      call rdrsym(b)
      end