/* { dg-do compile } */ | |
/* { dg-require-effective-target tls } */ | |
#include <stdlib.h> | |
float *work; | |
int size; | |
float tol; | |
void build (void); | |
#pragma omp threadprivate(work,size,tol) | |
void | |
a32 (float t, int n) | |
{ | |
tol = t; | |
size = n; | |
#pragma omp parallel copyin(tol,size) | |
{ | |
build (); | |
} | |
} | |
void | |
build () | |
{ | |
int i; | |
work = (float *) malloc (sizeof (float) * size); | |
for (i = 0; i < size; ++i) | |
work[i] = tol; | |
} |