]>
Commit | Line | Data |
---|---|---|
41dbbb37 TS |
1 | ! { dg-do compile } |
2 | ! { dg-additional-options "-fdump-tree-original" } | |
3 | ||
4 | ! test for tree-dump-original and spaces-commas | |
5 | ||
6 | program test | |
7 | implicit none | |
8 | integer :: q, i, j, k, m, n, o, p, r, s, t, u, v, w | |
9 | logical :: l | |
10 | ||
11 | !$acc parallel if(l) async num_gangs(i) num_workers(i) vector_length(i) & | |
12 | !$acc reduction(max:q), copy(i), copyin(j), copyout(k), create(m) & | |
13 | !$acc present(o), pcopy(p), pcopyin(r), pcopyout(s), pcreate(t) & | |
14 | !$acc deviceptr(u), private(v), firstprivate(w) | |
15 | !$acc end parallel | |
16 | ||
17 | end program test | |
18 | ! { dg-final { scan-tree-dump-times "pragma acc parallel" 1 "original" } } | |
19 | ||
20 | ! { dg-final { scan-tree-dump-times "if" 1 "original" } } | |
21 | ! { dg-final { scan-tree-dump-times "async" 1 "original" } } | |
22 | ! { dg-final { scan-tree-dump-times "num_gangs" 1 "original" } } | |
23 | ! { dg-final { scan-tree-dump-times "num_workers" 1 "original" } } | |
24 | ! { dg-final { scan-tree-dump-times "vector_length" 1 "original" } } | |
25 | ||
26 | ! { dg-final { scan-tree-dump-times "reduction\\(max:q\\)" 1 "original" } } | |
27 | ! { dg-final { scan-tree-dump-times "map\\(force_tofrom:i\\)" 1 "original" } } | |
28 | ! { dg-final { scan-tree-dump-times "map\\(force_to:j\\)" 1 "original" } } | |
29 | ! { dg-final { scan-tree-dump-times "map\\(force_from:k\\)" 1 "original" } } | |
30 | ! { dg-final { scan-tree-dump-times "map\\(force_alloc:m\\)" 1 "original" } } | |
31 | ||
32 | ! { dg-final { scan-tree-dump-times "map\\(force_present:o\\)" 1 "original" } } | |
33 | ! { dg-final { scan-tree-dump-times "map\\(tofrom:p\\)" 1 "original" } } | |
34 | ! { dg-final { scan-tree-dump-times "map\\(to:r\\)" 1 "original" } } | |
35 | ! { dg-final { scan-tree-dump-times "map\\(from:s\\)" 1 "original" } } | |
36 | ! { dg-final { scan-tree-dump-times "map\\(alloc:t\\)" 1 "original" } } | |
37 | ||
38 | ! { dg-final { scan-tree-dump-times "map\\(force_deviceptr:u\\)" 1 "original" } } | |
39 | ! { dg-final { scan-tree-dump-times "private\\(v\\)" 1 "original" } } |