|
/* { dg-do compile } */
|
|
|
|
#include <stdio.h>
|
|
#include <stdlib.h>
|
|
#include <omp.h>
|
|
omp_lock_t *
|
|
new_lock ()
|
|
{
|
|
omp_lock_t *lock_ptr;
|
|
#pragma omp single copyprivate(lock_ptr)
|
|
{
|
|
lock_ptr = (omp_lock_t *) malloc (sizeof (omp_lock_t));
|
|
omp_init_lock (lock_ptr);
|
|
}
|
|
return lock_ptr;
|
|
}
|