28 lines
420 B
C
28 lines
420 B
C
/* { 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;
|
|
}
|