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