--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/libgomp/testsuite/libgomp.c/appendix-a/a.33.3.c	Fri Jul 17 14:47:48 2009 +0900
@@ -0,0 +1,16 @@
+/* { 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;
+}