Mercurial > hg > CbC > CbC_gcc
comparison gcc/testsuite/c-c++-common/gomp/nesting-1.c @ 111:04ced10e8804
gcc 7
author | kono |
---|---|
date | Fri, 27 Oct 2017 22:46:09 +0900 |
parents | |
children |
comparison
equal
deleted
inserted
replaced
68:561a7518be6b | 111:04ced10e8804 |
---|---|
1 extern int i; | |
2 | |
3 void | |
4 f_omp_parallel (void) | |
5 { | |
6 #pragma omp parallel | |
7 { | |
8 #pragma omp parallel | |
9 ; | |
10 | |
11 #pragma omp target | |
12 ; | |
13 | |
14 #pragma omp target data map(i) | |
15 ; | |
16 | |
17 #pragma omp target update to(i) | |
18 | |
19 #pragma omp target data map(i) | |
20 { | |
21 #pragma omp parallel | |
22 ; | |
23 | |
24 #pragma omp target | |
25 ; | |
26 | |
27 #pragma omp target data map(i) | |
28 ; | |
29 | |
30 #pragma omp target update to(i) | |
31 } | |
32 } | |
33 } | |
34 | |
35 void | |
36 f_omp_target (void) | |
37 { | |
38 #pragma omp target | |
39 { | |
40 #pragma omp parallel | |
41 ; | |
42 } | |
43 } | |
44 | |
45 void | |
46 f_omp_target_data (void) | |
47 { | |
48 #pragma omp target data map(i) | |
49 { | |
50 #pragma omp parallel | |
51 ; | |
52 | |
53 #pragma omp target | |
54 ; | |
55 | |
56 #pragma omp target data map(i) | |
57 ; | |
58 | |
59 #pragma omp target update to(i) | |
60 | |
61 #pragma omp target data map(i) | |
62 { | |
63 #pragma omp parallel | |
64 ; | |
65 | |
66 #pragma omp target | |
67 ; | |
68 | |
69 #pragma omp target data map(i) | |
70 ; | |
71 | |
72 #pragma omp target update to(i) | |
73 } | |
74 } | |
75 } |