1! { dg-do compile  }
2! { dg-additional-options "-Ofast -g" }
3! { dg-additional-options "-march=haswell" { target i?86-*-* x86_64-*-* } }
4
5subroutine 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
15end subroutine fn1
16