1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
|
! { dg-do compile }
program test
implicit none
integer :: a(10), b(10, 10), c(3:7), i
!$acc parallel copy(a(1:5))
!$acc end parallel
!$acc parallel copy(a(1 + 0 : 5 + 2))
!$acc end parallel
!$acc parallel copy(a(:3))
!$acc end parallel
!$acc parallel copy(a(3:))
!$acc end parallel
!$acc parallel copy(a(:))
!$acc end parallel
!$acc parallel copy(a(2:3,2:3))
! { dg-error "Rank mismatch" "" { target *-*-* } .-1 }
! { dg-error "'a' in MAP clause" "" { target *-*-* } .-2 }
!$acc end parallel
!$acc parallel copy (a(:11)) ! { dg-warning "Upper array reference" }
!$acc end parallel
!$acc parallel copy (a(i:))
!$acc end parallel
!$acc parallel copy (a(:b))
! { dg-error "Array index" "" { target *-*-* } .-1 }
! { dg-error "'a' in MAP clause" "" { target *-*-* } .-2 }
!$acc end parallel
!$acc parallel copy (b(1:3,2:4)) ! { dg-error "Array is not contiguous" }
!$acc end parallel
!$acc parallel copy (b(2:3))
! { dg-error "Rank mismatch" "" { target *-*-* } .-1 }
! { dg-error "'b' in MAP clause" "" { target *-*-* } .-2 }
!$acc end parallel
!$acc parallel copy (b(1:, 4:6))
!$acc end parallel
!$acc parallel copy (c(2:)) ! { dg-warning "Lower array reference" }
!$acc end parallel
end program test
|
