1! { dg-do compile } 2! { dg-require-effective-target vect_float } 3! { dg-additional-options "-O3 -fopt-info-vec-optimized" } 4 5subroutine test(n, a, b, c) 6 integer, value :: n 7 real, contiguous, pointer :: a(:), b(:), c(:) 8 integer :: i 9 do concurrent (i = 1:n) 10 a(i) = b(i) + c(i) 11 end do 12end subroutine test 13 14! { dg-message "loop vectorized" "" { target *-*-* } 0 } 15