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