libgomp/testsuite/libgomp.c/appendix-a/a.33.3.c

   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 }