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

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