gcc/testsuite/gfortran.dg/vect/vect-do-concurrent-1.f90

   1 ! { dg-do compile }
   2 ! { dg-require-effective-target vect_float }
   3 ! { dg-additional-options "-O3 -fopt-info-vec-optimized" }
   4
   5 subroutine 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
  12 end subroutine test
  13
  14 ! { dg-message "loop vectorized" "" { target *-*-* } 0 }
  15 ! { dg-bogus " version\[^\n\r]* alias" "" { target *-*-* } 0 }
  16 ! { dg-final { cleanup-tree-dump "vect" } }