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