Imported gcc-4.4.3

[msp430-gcc.git] / libgomp / testsuite / libgomp.c / pr39591-1.c

diff --git a/libgomp/testsuite/libgomp.c/pr39591-1.c b/libgomp/testsuite/libgomp.c/pr39591-1.c
new file mode 100644 (file)
index 0000000..dfd8d9e
--- /dev/null
+++ b/libgomp/testsuite/libgomp.c/pr39591-1.c
@@ -0,0 +1,33 @@
+/* PR other/39591 */
+/* { dg-do run } */
+/* { dg-options "-O2" } */
+
+extern void abort (void);
+
+int err;
+
+int
+main (void)
+{
+#pragma omp parallel
+  {
+    int array[40];
+    int i;
+    for (i = 0; i < sizeof array / sizeof array[0]; i++)
+      array[i] = 0x55555555;
+
+#pragma omp for schedule(dynamic)
+    for (i = 0; i < 50; i++)
+#pragma omp task shared(array)
+      {
+       int j;
+       for (j = 0; j < sizeof array / sizeof array[0]; j++)
+         if (array[j] != 0x55555555)
+#pragma omp atomic
+           err++;
+      }
+  }
+  if (err)
+    abort ();
+  return 0;
+}