! { dg-do compile }
! { dg-options "-O2 -ftree-vectorize" }
!
! Testcase for vectorization (see PR33449).
!
subroutine dlarre (w, iblock, work)
  integer m, i, iblock(*)
  double precision w(*), work(*)

  m = 0
  do jblk = 1, 10
    do i = 1, 10
      m = m + 1
      w(m) = -work(i)
      iblock(m) = 0
    end do
  end do
end