]> oss.titaniummirror.com Git - msp430-gcc.git/blobdiff - libgomp/testsuite/libgomp.c/loop-8.c
Imported gcc-4.4.3
[msp430-gcc.git] / libgomp / testsuite / libgomp.c / loop-8.c
diff --git a/libgomp/testsuite/libgomp.c/loop-8.c b/libgomp/testsuite/libgomp.c/loop-8.c
new file mode 100644 (file)
index 0000000..25db25c
--- /dev/null
@@ -0,0 +1,27 @@
+extern void abort (void);
+
+int buf[256];
+
+void __attribute__((noinline))
+foo (void)
+{
+  int i;
+  #pragma omp for schedule (auto)
+    for (i = 0; i < 256; i++)
+      buf[i] += i;
+}
+
+int
+main (void)
+{
+  int i;
+  #pragma omp parallel for schedule (auto)
+    for (i = 0; i < 256; i++)
+      buf[i] = i;
+  #pragma omp parallel num_threads (4)
+    foo ();
+  for (i = 0; i < 256; i++)
+    if (buf[i] != 2 * i)
+      abort ();
+  return 0;
+}