From 3616a8c52ecaf7980d1bd7a66289a63516c9d8fe Mon Sep 17 00:00:00 2001 From: Cesar Philippidis Date: Wed, 1 Jun 2016 13:37:44 -0700 Subject: [PATCH] re PR c/70688 (bogus OpenACC data clause errors involving reductions) PR c/70688 * pr70688.c: New file. From-SVN: r237011 --- libgomp/ChangeLog | 5 ++++ .../libgomp.oacc-c-c++-common/pr70688.c | 27 +++++++++++++++++++ 2 files changed, 32 insertions(+) create mode 100644 libgomp/testsuite/libgomp.oacc-c-c++-common/pr70688.c diff --git a/libgomp/ChangeLog b/libgomp/ChangeLog index 9dcdda83b5d..eebbb27c566 100644 --- a/libgomp/ChangeLog +++ b/libgomp/ChangeLog @@ -1,3 +1,8 @@ +2016-06-01 Cesar Philippidis + + PR c/70688 + * pr70688.c: New file. + 2016-05-26 Jakub Jelinek * testsuite/libgomp.c/doacross-1.c (main): Use schedule(static) 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 00000000000..f9556e34a46 --- /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 + +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; +} -- 2.30.2