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)8 init (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