2 ! { dg-do run { target vect_simd_clones } }
3 ! { dg-options "-fno-inline" }
4 ! { dg-additional-options "-msse2" { target sse2_runtime } }
5 ! { dg-additional-options "-mavx" { target avx_runtime } }
7 real :: a(1024), b(1024), c(1024)
15 c(i
) = foo (a(i
), b(i
))
18 if (c(i
).ne
.(2 * i
)) STOP 1
21 real function foo (x
, y
)
23 !$omp declare simd linear (ref (x, y))