Subversion Repositories openrisc

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