1 /* { dg-do compile } */ 2 /* { dg-require-effective-target tls } */ 3 4 #include <stdio.h> 5 float x, y; 6 #pragma omp threadprivate(x, y) 7 void init(float a,float b)8init (float a, float b) 9 { 10 #pragma omp single copyprivate(a,b,x,y) 11 { 12 scanf ("%f %f %f %f", &a, &b, &x, &y); 13 } 14 } 15