blob: c1bfe5868429acef13d640c5775d67db1afc204c [file] [log] [blame]
! { dg-do compile }
subroutine foo
type t
integer :: i, j
end type t
type(t) x
! We should reject the duplicate reference here.
!$acc enter data copyin(x%i, x%i)
! { dg-error ".x.i. appears more than once in map clauses" "" { target "*-*-*" } 11 }
end