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