gcc/testsuite/gfortran.dg/vect/pr70043.f90

   1 ! { dg-do compile  }
   2 ! { dg-additional-options "-Ofast -g" }
   3 ! { dg-additional-options "-march=haswell" { target i?86-*-* x86_64-*-* } }
   4
   5 subroutine fn1(a, b)
   6   real(8), intent(in) ::  b(100)
   7   real(8), intent(inout) :: a(100)
   8   real(8) c
   9   do i=0,100
  10      if( a(i) < 0.0 ) then
  11         c =  a(i) * b(i)
  12         a(i) = a(i) - c / b(i)
  13      endif
  14   enddo
  15 end subroutine fn1