1 files changed, 17 insertions, 0 deletions
diff --git a/gcc/testsuite/gcc.dg/gomp/appendix-a/a.31.1.c b/gcc/testsuite/gcc.dg/gomp/appendix-a/a.31.1.c
new file mode 100644
index 00000000000..cbb3f60df44
--- /dev/null
+++ b/gcc/testsuite/gcc.dg/gomp/appendix-a/a.31.1.c
@@ -0,0 +1,17 @@
+/* { dg-do compile } */
+
+void
+a31_1 (float *x, int *y, int n)
+{
+  int i, b;
+  float a;
+  a = 0.0;
+  b = 0;
+#pragma omp parallel for private(i) shared(x, y, n) \
+                         reduction(+:a) reduction(^:b)
+  for (i = 0; i < n; i++)
+    {
+      a += x[i];
+      b ^= y[i];
+    }
+}