1! { dg-do compile }
2! { dg-options "-O3 -ffast-math" }
3! { dg-additional-options "-mavx -mveclibabi=svml" { target i?86-*-* x86_64-*-* } }
4subroutine foo (a, b, c, d, e, f, g, h, k, l)
5  implicit none
6  integer :: d, e, f, g, i, j
7  real :: a, b(5,6), c(6), h(6,10,5), k(5,10,2), l(10,5), m, n, o
8  do i=1,5
9    do j=1,6
10      m=l(f,g)*log(c(j))
11      if (m<2) then
12        if (m<-2) then
13          h(j,f,g)=n
14        else
15          h(j,f,g)=o
16        endif
17      endif
18      b(i,j)=a+k(i,d,e)+k(i,1,e)**h(j,f,g)
19    enddo
20  enddo
21  write(*,'()')
22end
23