Subversion Repositories openrisc

! PR middle-end/46629

! { dg-lto-do assemble }

! { dg-lto-options {{ -O2 -flto -ftree-vectorize }} }

! { dg-lto-options {{ -O2 -flto -ftree-vectorize -march=x86-64 }} { target i?86-*-* x86_64-*-* } }

subroutine foo

  character(len=6), save :: c

  real, save :: d(0:100)

  integer, save :: x, n, i

  n = x

  print *, c

  do i = 2, n

    d(i) = -d(i-1)

  end do

end