X-Git-Url: https://oss.titaniummirror.com/gitweb/?a=blobdiff_plain;f=libgomp%2Ftestsuite%2Flibgomp.c%2Fappendix-a%2Fa.16.1.c;fp=libgomp%2Ftestsuite%2Flibgomp.c%2Fappendix-a%2Fa.16.1.c;h=28a994a28fa7cfddaa8b76074d6e20ccb755f779;hb=6fed43773c9b0ce596dca5686f37ac3fc0fa11c0;hp=0000000000000000000000000000000000000000;hpb=27b11d56b743098deb193d510b337ba22dc52e5c;p=msp430-gcc.git

diff --git a/libgomp/testsuite/libgomp.c/appendix-a/a.16.1.c b/libgomp/testsuite/libgomp.c/appendix-a/a.16.1.c
new file mode 100644
index 00000000..28a994a2
--- /dev/null
+++ b/libgomp/testsuite/libgomp.c/appendix-a/a.16.1.c
@@ -0,0 +1,47 @@
+/* { dg-do run } */
+
+#include <stdio.h>
+
+float
+work1 (int i)
+{
+  return 1.0 * i;
+}
+
+float
+work2 (int i)
+{
+  return 2.0 * i;
+}
+
+void
+a16 (float *x, float *y, int *index, int n)
+{
+  int i;
+#pragma omp parallel for shared(x, y, index, n)
+  for (i = 0; i < n; i++)
+    {
+#pragma omp atomic
+      x[index[i]] += work1 (i);
+      y[i] += work2 (i);
+    }
+}
+int
+main ()
+{
+  float x[1000];
+  float y[10000];
+  int index[10000];
+  int i;
+  for (i = 0; i < 10000; i++)
+    {
+      index[i] = i % 1000;
+      y[i] = 0.0;
+    }
+  for (i = 0; i < 1000; i++)
+    x[i] = 0.0;
+  a16 (x, y, index, 10000);
+  for (i = 0; i < 10; i++)
+    printf ("x[%d] = %f, y[%d] = %f\n", i, x[i], i, y[i]);
+  return 0;
+}