/* { 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; | |
} |