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 } 32