mirror of
https://github.com/OpenMP/Examples.git
synced 2025-04-10 16:32:11 +01:00
24 lines
379 B
C
24 lines
379 B
C
/*
|
|
* @@name: copyprivate.3
|
|
* @@type: C
|
|
* @@operation: compile
|
|
* @@expect: success
|
|
* @@version: pre_omp_3.0
|
|
*/
|
|
#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;
|
|
}
|