! { dg-options "-O -ffast-math -fgraphite-identity -fno-tree-dce" }

subroutine foo (m, l, zw)
  integer :: m, i, j, k
  real, dimension(1:9) :: zw
  real :: l, s
  s = 0
  do i = 1, 9
    do j = 1, 2*m
      do k = 1, 2*m
        s = s + 1
      end do
    end do
    l = l + zw(i)*s
  end do
end subroutine foo