re PR c/70688 (bogus OpenACC data clause errors involving reductions)

	PR c/70688
	* pr70688.c: New file.

From-SVN: r237011

1 files changed, 27 insertions, 0 deletions

diff --git a/libgomp/testsuite/libgomp.oacc-c-c++-common/pr70688.c b/libgomp/testsuite/libgomp.oacc-c-c++-common/pr70688.c
new file mode 100644
index 0000000..f9556e3
--- /dev/null
+++ b/libgomp/testsuite/libgomp.oacc-c-c++-common/pr70688.c
@@ -0,0 +1,27 @@
+/* Verify that reduction variables can appear in data clause.  */
+
+#include <assert.h>
+
+const int n = 100;
+
+int
+main ()
+{
+  int s = 0;
+  int array[n];
+
+  for (int i = 0; i < n; i++)
+    array[i] = i+1;
+
+#pragma acc parallel loop num_gangs (10) copy (s) reduction (+:s)
+  for (int i = 0; i < n; i++)
+    s += array[i];
+
+#pragma acc parallel loop num_gangs (10) reduction (+:s) copy (s)
+  for (int i = 0; i < n; i++)
+    s += array[i];
+
+  assert (s == n * (n + 1));
+
+  return 0;
+}