gcc/testsuite/gfortran.dg/pr33449.f90


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