blob: 98480b13e7af37343620847e03a5af7cf18a165f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
! { 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
|
