1 /* { dg-do compile } */ 2 3 #include <stdio.h> 4 #include <stdlib.h> 5 #include <omp.h> 6 omp_lock_t * new_lock()7new_lock () 8 { 9 omp_lock_t *lock_ptr; 10 #pragma omp single copyprivate(lock_ptr) 11 { 12 lock_ptr = (omp_lock_t *) malloc (sizeof (omp_lock_t)); 13 omp_init_lock (lock_ptr); 14 } 15 return lock_ptr; 16 } 17