1! Test data clauses involving common blocks and common block data.
2! Specifically, resolver errors such as duplicate data clauses.
3
4program test
5  implicit none
6  integer, parameter :: n = 10
7  integer a(n), b(n), c, d(n), e
8  real*4 x(n), y(n), z, w(n), v
9  common /blockA/ a, c, x
10  common /blockB/ b, y, z
11
12  !$acc data copy(/blockA/, /blockB/, e, v, a) ! { dg-error "Symbol .a. present on multiple clauses" }
13  !$acc end data
14
15  !$acc data copyin(/blockA/, /blockB/, e, v, a) ! { dg-error "Symbol .a. present on multiple clauses" }
16  !$acc end data
17
18  !$acc data copyout(/blockA/, /blockB/, e, v, a) ! { dg-error "Symbol .a. present on multiple clauses" }
19  !$acc end data
20
21  !$acc data create(/blockA/, /blockB/, e, v, a) ! { dg-error "Symbol .a. present on multiple clauses" }
22  !$acc end data
23
24  !$acc data copyout(/blockA/, /blockB/, e, v, a) ! { dg-error "Symbol .a. present on multiple clauses" }
25  !$acc end data
26
27  !$acc data pcopy(/blockA/, /blockB/, e, v, a) ! { dg-error "Symbol .a. present on multiple clauses" }
28  !$acc end data
29
30  !$acc data pcopyin(/blockA/, /blockB/, e, v, a) ! { dg-error "Symbol .a. present on multiple clauses" }
31  !$acc end data
32
33  !$acc data pcopyout(/blockA/, /blockB/, e, v, a) ! { dg-error "Symbol .a. present on multiple clauses" }
34  !$acc end data
35
36  !$acc data pcreate(/blockA/, /blockB/, e, v, a) ! { dg-error "Symbol .a. present on multiple clauses" }
37  !$acc end data
38
39  !$acc data pcopyout(/blockA/, /blockB/, e, v, a) ! { dg-error "Symbol .a. present on multiple clauses" }
40  !$acc end data
41
42  !$acc data no_create(/blockA/, /blockB/, e, v, a) ! { dg-error "Symbol .a. present on multiple clauses" }
43  !$acc end data
44
45  !$acc parallel private(/blockA/, /blockB/, e, v, a) ! { dg-error "Symbol .a. present on multiple clauses" }
46  !$acc end parallel
47
48  !$acc parallel firstprivate(/blockA/, /blockB/, e, v, a) ! { dg-error "Symbol .a. present on multiple clauses" }
49  !$acc end parallel
50
51  !$acc update device(b, /blockA/, x) ! { dg-error "Symbol .x. present on multiple clauses" }
52  !$acc update self(z, /blockB/, v) ! { dg-error "Symbol .z. present on multiple clauses" }
53  !$acc update host(/blockA/, c) ! { dg-error "Symbol .c. present on multiple clauses" }
54
55  !$acc enter data copyin(/blockB/, e, v, a, c, y) ! { dg-error "Symbol .y. present on multiple clauses" }
56  !$acc exit data delete(/blockA/, /blockB/, e, v, a) ! { dg-error "Symbol .a. present on multiple clauses" }
57end program test
58