1 files changed, 22 insertions, 0 deletions
diff --git a/gcc/testsuite/gcc.dg/gomp/appendix-a/a.21.2.c b/gcc/testsuite/gcc.dg/gomp/appendix-a/a.21.2.c
new file mode 100644
index 000000000..a9b81d0c3
--- /dev/null
+++ b/gcc/testsuite/gcc.dg/gomp/appendix-a/a.21.2.c
@@ -0,0 +1,22 @@
+/* { dg-do compile } */
+
+void
+work (int i)
+{
+}
+
+void
+a21_wrong (int n)
+{
+  int i;
+#pragma omp for ordered
+  for (i = 0; i < n; i++)
+    {
+/* incorrect because an iteration may not execute more than one
+    ordered region */
+#pragma omp ordered
+      work (i);
+#pragma omp ordered
+      work (i + 1);
+    }
+}