1! { dg-options "-O -ftree-pre -fgraphite-identity -fno-tree-copy-prop" }
2
3 subroutine foo (ldmx,ldmy,v)
4 integer :: ldmx, ldmy, v, l, m
5 dimension v(5,ldmx,ldmy)
6 do m = 5, 1, -1
7 do l = m+1, 5
8 v(m,3,2) = v(1,3,2)
9 end do
10 v(m,3,2) = m
11 end do
12 end
13