1 /* { dg-do compile } */
2 
3 #include <stdio.h>
4 #include <stdlib.h>
5 #include <omp.h>
6 omp_lock_t *
7 new_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