1 files changed, 18 insertions, 0 deletions
diff --git a/gcc/testsuite/gcc.dg/gomp/appendix-a/a.13.1.c b/gcc/testsuite/gcc.dg/gomp/appendix-a/a.13.1.c
new file mode 100644
index 000000000..cc0fcc25d
--- /dev/null
+++ b/gcc/testsuite/gcc.dg/gomp/appendix-a/a.13.1.c
@@ -0,0 +1,18 @@
+/* { dg-do compile } */
+
+int dequeue (float *a);
+void work (int i, float *a);
+void
+a13 (float *x, float *y)
+{
+  int ix_next, iy_next;
+#pragma omp parallel shared(x, y) private(ix_next, iy_next)
+  {
+#pragma omp critical (xaxis)
+    ix_next = dequeue (x);
+    work (ix_next, x);
+#pragma omp critical (yaxis)
+    iy_next = dequeue (y);
+    work (iy_next, y);
+  }
+}