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