1 files changed, 103 insertions, 0 deletions
diff --git a/gcc/testsuite/c-c++-common/gomp/ordered-3.c b/gcc/testsuite/c-c++-common/gomp/ordered-3.c
new file mode 100644
index 0000000000..3c107232c0
--- /dev/null
+++ b/gcc/testsuite/c-c++-common/gomp/ordered-3.c
@@ -0,0 +1,103 @@
+/* { dg-do compile } */
+/* { dg-options "-fopenmp" } */
+
+void
+foo (void)
+{
+  int i;
+  #pragma omp for ordered
+  for (i = 0; i < 64; i++)
+    {
+      #pragma omp ordered
+      ;
+    }
+  #pragma omp for ordered
+  for (i = 0; i < 64; i++)
+    {
+      #pragma omp ordered threads
+      ;
+    }
+  #pragma omp for ordered
+  for (i = 0; i < 64; i++)
+    {
+      #pragma omp ordered threads threads	/* { dg-error "too many .threads. clauses" } */
+      ;
+    }
+  #pragma omp simd
+  for (i = 0; i < 64; i++)
+    {
+      #pragma omp ordered simd
+      ;
+    }
+  #pragma omp simd
+  for (i = 0; i < 64; i++)
+    {
+      #pragma omp ordered simd simd		/* { dg-error "too many .simd. clauses" } */
+      ;
+    }
+  #pragma omp for simd ordered
+  for (i = 0; i < 64; i++)
+    {
+      #pragma omp ordered threads, simd
+      ;
+    }
+  #pragma omp for simd ordered
+  for (i = 0; i < 64; i++)
+    {
+      #pragma omp ordered threads, simd, threads, simd	/* { dg-error "too many .threads. clauses" } */
+      ;	/* { dg-error "too many .simd. clauses" "" { target *-*-* } 47 } */
+    }
+  #pragma omp for simd ordered(1)	/* { dg-error ".ordered. clause with parameter may not be specified on .#pragma omp for simd. construct" } */
+  for (i = 0; i < 64; i++)
+    {
+      #pragma omp ordered depend(sink: i - 1)	/* { dg-error "clause must be closely nested inside a loop with .ordered. clause with a parameter" } */
+      #pragma omp ordered depend(source)	/* { dg-error "clause must be closely nested inside a loop with .ordered. clause with a parameter" } */
+    }
+  #pragma omp parallel for simd ordered(1)	/* { dg-error ".ordered. clause with parameter may not be specified on .#pragma omp parallel for simd. construct" } */
+  for (i = 0; i < 64; i++)
+    {
+      #pragma omp ordered depend(sink: i - 1)	/* { dg-error "clause must be closely nested inside a loop with .ordered. clause with a parameter" } */
+      #pragma omp ordered depend(source)	/* { dg-error "clause must be closely nested inside a loop with .ordered. clause with a parameter" } */
+    }
+  #pragma omp parallel for ordered
+  for (i = 0; i < 64; i++)
+    {
+      #pragma omp ordered depend(sink: i - 1)	/* { dg-error "clause must be closely nested inside a loop with .ordered. clause with a parameter" } */
+      #pragma omp ordered depend(source)	/* { dg-error "clause must be closely nested inside a loop with .ordered. clause with a parameter" } */
+    }
+  #pragma omp parallel for
+  for (i = 0; i < 64; i++)
+    {
+      #pragma omp ordered depend(sink: i - 1)	/* { dg-error "clause must be closely nested inside a loop with .ordered. clause with a parameter" } */
+      #pragma omp ordered depend(source)	/* { dg-error "clause must be closely nested inside a loop with .ordered. clause with a parameter" } */
+    }
+}
+
+void
+bar (int x)
+{
+  switch (x)
+    {
+    case 0:
+      #pragma omp ordered
+      ;
+      break;
+    case 1:
+      #pragma omp ordered threads
+      ;
+      break;
+    case 2:
+      #pragma omp ordered threads, threads	/* { dg-error "too many .threads. clauses" } */
+      ;
+      break;
+    }
+}
+
+void
+baz (void)
+{
+  #pragma omp ordered simd
+  ;
+  #pragma omp ordered simd, simd		/* { dg-error "too many .simd. clauses" } */
+  ;
+}