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  }