1/* { dg-do compile } */
2/* { dg-require-effective-target tls } */
3
4#include <stdlib.h>
5float *work;
6int size;
7float tol;
8void build (void);
9#pragma omp threadprivate(work,size,tol)
10void
11a32 (float t, int n)
12{
13  tol = t;
14  size = n;
15#pragma omp parallel copyin(tol,size)
16  {
17    build ();
18  }
19}
20void
21build ()
22{
23  int i;
24  work = (float *) malloc (sizeof (float) * size);
25  for (i = 0; i < size; ++i)
26    work[i] = tol;
27}
28