mirror of
https://github.com/autc04/Retro68.git
synced 2024-12-11 03:52:59 +00:00
28 lines
479 B
C
28 lines
479 B
C
/* 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;
|
|
}
|