1! { dg-do compile } 2! { dg-options "-O2 -ftree-vectorize" } 3! 4! Testcase for vectorization (see PR33449). 5! 6subroutine dlarre (w, iblock, work) 7 integer m, i, iblock(*) 8 double precision w(*), work(*) 9 10 m = 0 11 do jblk = 1, 10 12 do i = 1, 10 13 m = m + 1 14 w(m) = -work(i) 15 iblock(m) = 0 16 end do 17 end do 18end 19