1 files changed, 82 insertions, 0 deletions
diff --git a/libgomp/testsuite/libgomp.c/ordered-2.c b/libgomp/testsuite/libgomp.c/ordered-2.c
new file mode 100644
index 000000000..91564371a
--- /dev/null
+++ b/libgomp/testsuite/libgomp.c/ordered-2.c
@@ -0,0 +1,82 @@
+/* Trivial test of ordered.  */
+
+/* { dg-require-effective-target sync_int_long } */
+
+#include <omp.h>
+#include <string.h>
+#include <assert.h>
+#include "libgomp_g.h"
+
+
+#define N 100
+static int next;
+static int CHUNK, NTHR;
+
+static void clean_data (void)
+{
+  next = 0;
+}
+
+static void set_data (long i)
+{
+  int n = __sync_fetch_and_add (&next, 1);
+  assert (n == i);
+}
+
+
+#define TMPL_1(sched)							\
+static void f_##sched##_1 (void *dummy)					\
+{									\
+  long s0, e0, i;							\
+  if (GOMP_loop_ordered_##sched##_start (0, N, 1, CHUNK, &s0, &e0))	\
+    do									\
+      {									\
+	for (i = s0; i < e0; ++i)					\
+	  {								\
+	    GOMP_ordered_start ();					\
+	    set_data (i);						\
+	    GOMP_ordered_end ();					\
+	  }								\
+      }									\
+    while (GOMP_loop_ordered_##sched##_next (&s0, &e0));		\
+  GOMP_loop_end ();							\
+}									\
+static void t_##sched##_1 (void)					\
+{									\
+  clean_data ();							\
+  GOMP_parallel_start (f_##sched##_1, NULL, NTHR);			\
+  f_##sched##_1 (NULL);							\
+  GOMP_parallel_end ();							\
+}
+
+TMPL_1(static)
+TMPL_1(dynamic)
+TMPL_1(guided)
+
+static void test (void)
+{
+  t_static_1 ();
+  t_dynamic_1 ();
+  t_guided_1 ();
+}
+
+int main()
+{
+  omp_set_dynamic (0);
+
+  NTHR = 4;
+
+  CHUNK = 1;
+  test ();
+
+  CHUNK = 5;
+  test ();
+
+  CHUNK = 7;
+  test ();
+
+  CHUNK = 0;
+  t_static_1 ();
+
+  return 0;
+}