blob: 2c8aa618cc227554069f774ee455166083fdffa3 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
! { 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
|
