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