1  /* { dg-do run } */
       2  
       3  #include <omp.h>
       4  #include <stdlib.h>
       5  void
       6  do_by_16 (float *x, int iam, int ipoints)
       7  {
       8  }
       9  
      10  void
      11  a36 (float *x, int npoints)
      12  {
      13    int iam, ipoints;
      14    omp_set_dynamic (0);
      15    omp_set_num_threads (16);
      16  #pragma omp parallel shared(x, npoints) private(iam, ipoints)
      17    {
      18      if (omp_get_num_threads () != 16)
      19        abort ();
      20      iam = omp_get_thread_num ();
      21      ipoints = npoints / 16;
      22      do_by_16 (x, iam, ipoints);
      23    }
      24  }
      25  
      26  int main()
      27  {
      28    float a[10];
      29    a36 (a, 10);
      30    return 0;
      31  }