gcc/testsuite/gfortran.dg/lto/pr46629_0.f90

   1 ! PR middle-end/46629
   2 ! { dg-lto-do assemble }
   3 ! { dg-lto-options {{ -O2 -flto -ftree-vectorize }} }
   4 ! { dg-lto-options {{ -O2 -flto -ftree-vectorize -march=x86-64 }} { target i?86-*-* x86_64-*-* } }
   5
   6 subroutine foo
   7   character(len=6), save :: c
   8   real, save :: d(0:100)
   9   integer, save :: x, n, i
  10   n = x
  11   print *, c
  12   do i = 2, n
  13     d(i) = -d(i-1)
  14   end do
  15 end