1  /* { dg-do compile } */
       2  /* { dg-require-effective-target fopenmp } */
       3  /* { dg-additional-options "-O2 -fexceptions -fopenmp -fno-delete-dead-exceptions -fno-trapping-math" } */
       4  
       5  double
       6  do_work (double do_work_pri)
       7  {
       8    int i;
       9  
      10  #pragma omp simd
      11    for (i = 0; i < 17; ++i)
      12      do_work_pri = (!i ? 0.5 : i) * 2.0;
      13  
      14    return do_work_pri;
      15  }
      16