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
8