subroutine foo | |
type one | |
integer, dimension(10) :: i, j | |
end type | |
type two | |
type(one) A, B | |
end type | |
type(two) x | |
!$acc enter data copyin(x%A%i(5), x%A%i(4), x%A) | |
! { dg-error ".x.a.i. appears more than once in map clauses" "" { target *-*-* } .-1 } | |
!$acc enter data copyin(x%A, x%A%i(5), x%A%i(4)) | |
! { dg-error ".x.a.i. appears more than once in map clauses" "" { target *-*-* } .-1 } | |
end |