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