summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/pr33449.f90
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