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