annotate gcc/testsuite/c-c++-common/goacc/routine-1.c @ 111:04ced10e8804

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
kono
parents:
diff changeset
2 #pragma acc routine gang
kono
parents:
diff changeset
3 void gang (void)
kono
parents:
diff changeset
4 {
kono
parents:
diff changeset
5 }
kono
parents:
diff changeset
6
kono
parents:
diff changeset
7 #pragma acc routine worker
kono
parents:
diff changeset
8 void worker (void)
kono
parents:
diff changeset
9 {
kono
parents:
diff changeset
10 }
kono
parents:
diff changeset
11
kono
parents:
diff changeset
12 #pragma acc routine vector
kono
parents:
diff changeset
13 void vector (void)
kono
parents:
diff changeset
14 {
kono
parents:
diff changeset
15 }
kono
parents:
diff changeset
16
kono
parents:
diff changeset
17 #pragma acc routine seq
kono
parents:
diff changeset
18 void seq (void)
kono
parents:
diff changeset
19 {
kono
parents:
diff changeset
20 }
kono
parents:
diff changeset
21
kono
parents:
diff changeset
22 int main ()
kono
parents:
diff changeset
23 {
kono
parents:
diff changeset
24 #pragma acc kernels num_gangs (32) num_workers (32) vector_length (32)
kono
parents:
diff changeset
25 {
kono
parents:
diff changeset
26 gang ();
kono
parents:
diff changeset
27 worker ();
kono
parents:
diff changeset
28 vector ();
kono
parents:
diff changeset
29 seq ();
kono
parents:
diff changeset
30 }
kono
parents:
diff changeset
31
kono
parents:
diff changeset
32 #pragma acc parallel num_gangs (32) num_workers (32) vector_length (32)
kono
parents:
diff changeset
33 {
kono
parents:
diff changeset
34 gang ();
kono
parents:
diff changeset
35 worker ();
kono
parents:
diff changeset
36 vector ();
kono
parents:
diff changeset
37 seq ();
kono
parents:
diff changeset
38 }
kono
parents:
diff changeset
39
kono
parents:
diff changeset
40 return 0;
kono
parents:
diff changeset
41 }