openmp.c (gfc_match_omp_clauses): Scan for clause vector_length before vector.

[official-gcc.git] / gcc / testsuite / gfortran.dg / goacc / vector_length.f90

program t
  implicit none
  integer, parameter :: n = 100
  integer a(n), i

  !$acc parallel loop num_gangs(100) num_workers(1) vector_length(32)
  do i = 1, n
     a(i) = i
  enddo
  !$acc end parallel loop
end program t