1! { dg-options "-O -ffast-math -fgraphite-identity -fno-tree-dce" }
2
3subroutine foo (m, l, zw)
4  integer :: m, i, j, k
5  real, dimension(1:9) :: zw
6  real :: l, s
7  s = 0
8  do i = 1, 9
9    do j = 1, 2*m
10      do k = 1, 2*m
11        s = s + 1
12      end do
13    end do
14    l = l + zw(i)*s
15  end do
16end subroutine foo
17