Mercurial > hg > CbC > CbC_gcc

annotate gcc/testsuite/c-c++-common/goacc/combined-reduction.c @ 111:04ced10e8804

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gcc 7
author kono
date Fri, 27 Oct 2017 22:46:09 +0900
parents
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
111
kono
parents:
diff changeset
1 /* { dg-do compile } */
kono
parents:
diff changeset
2 /* { dg-options "-fopenacc -fdump-tree-gimple" } */
kono
parents:
diff changeset
3
kono
parents:
diff changeset
4 #include <assert.h>
kono
parents:
diff changeset
5
kono
parents:
diff changeset
6 int
kono
parents:
diff changeset
7 main ()
kono
parents:
diff changeset
8 {
kono
parents:
diff changeset
9 int i, v1 = 0, n = 100;
kono
parents:
diff changeset
10
kono
parents:
diff changeset
11 #pragma acc parallel loop reduction(+:v1)
kono
parents:
diff changeset
12 for (i = 0; i < n; i++)
kono
parents:
diff changeset
13 v1++;
kono
parents:
diff changeset
14
kono
parents:
diff changeset
15 assert (v1 == n);
kono
parents:
diff changeset
16
kono
parents:
diff changeset
17 #pragma acc kernels loop reduction(+:v1)
kono
parents:
diff changeset
18 for (i = 0; i < n; i++)
kono
parents:
diff changeset
19 v1++;
kono
parents:
diff changeset
20
kono
parents:
diff changeset
21 assert (v1 == n);
kono
parents:
diff changeset
22
kono
parents:
diff changeset
23 return 0;
kono
parents:
diff changeset
24 }
kono
parents:
diff changeset
25
kono
parents:
diff changeset
26 /* { dg-final { scan-tree-dump-times "omp target oacc_parallel reduction.+:v1. map.tofrom:v1" 1 "gimple" } } */
kono
parents:
diff changeset
27 /* { dg-final { scan-tree-dump-times "acc loop reduction.+:v1. private.i." 1 "gimple" } } */
kono
parents:
diff changeset
28 /* { dg-final { scan-tree-dump-times "omp target oacc_kernels map.force_tofrom:n .len: 4.. map.force_tofrom:v1 .len: 4.." 1 "gimple" } } */
kono
parents:
diff changeset
29 /* { dg-final { scan-tree-dump-times "acc loop reduction.+:v1. private.i." 1 "gimple" } } */