! { 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 doend