! { dg-do compile }

subroutine x
  integer :: var
  integer, parameter :: ilog = 0
  integer, parameter :: array(*) = [11,22,33]
  !$ACC DECLARE COPYIN(ilog, array, var, array) ! { dg-error "Symbol 'array' present on multiple clauses" }
end subroutine x

integer :: a
integer, parameter :: b = 4
integer, parameter :: c(*) = [1,2,3]

!$acc parallel copy(a,c,b,c)  ! { dg-error "Symbol 'c' present on multiple clauses" }
!$acc end parallel
end