Imported gcc-4.4.3

[msp430-gcc.git] / libgomp / testsuite / libgomp.c / appendix-a / a.2.1.c

diff --git a/libgomp/testsuite/libgomp.c/appendix-a/a.2.1.c b/libgomp/testsuite/libgomp.c/appendix-a/a.2.1.c
new file mode 100644 (file)
index 0000000..f6ae4c7
--- /dev/null
+++ b/libgomp/testsuite/libgomp.c/appendix-a/a.2.1.c
@@ -0,0 +1,45 @@
+/* { dg-do run } */
+
+#include <stdio.h>
+#include <omp.h>
+extern void abort (void);
+int
+main ()
+{
+  int bad, x;
+  x = 2;
+  bad = 0;
+#pragma omp parallel num_threads(2) shared(x, bad)
+  {
+    if (omp_get_thread_num () == 0)
+      {
+       volatile int i;
+       for (i = 0; i < 100000000; i++)
+         x = 5;
+      }
+    else
+      {
+       /* Print 1: the following read of x has a race */
+       if (x != 2 && x != 5)
+         bad = 1;
+      }
+#pragma omp barrier
+    if (omp_get_thread_num () == 0)
+      {
+       /* x must be 5 now.  */
+       if (x != 5)
+         bad = 1;
+      }
+    else
+      {
+       /* x must be 5 now.  */
+       if (x != 5)
+         bad = 1;
+      }
+  }
+
+  if (bad)
+    abort ();
+
+  return 0;
+}