/* Ensure that the default safelen is set correctly for the larger of the host
   and offload device, to prevent defeating the vectorizer.  */
 
/* { dg-require-effective-target offload_target_any } */

/* { dg-do link } */
/* { dg-options "-fopenmp -O2 -fdump-tree-omplower" } */

int f(float *a, float *b, int n)
{
  float sum = 0;
  #pragma omp target teams distribute parallel for simd map(tofrom: sum) reduction(+:sum)
  for (int i = 0; i < n; i++)
    sum += a[i] * b[i];
  return sum;
}

/* Make sure that the max_vf used is suitable for the offload device.
{ dg-final { scan-tree-dump-times {omp simd safelen\(64\)} 1 "omplower" { target offload_target_amdgcn } } } */

int main() {}