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