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