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
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
|
! { dg-do compile }
implicit none
integer :: a, b, c
!$omp requires reverse_offload
!$omp target device (ancestor: 1)
!$omp end target
!$omp target device (ancestor : a)
!$omp end target
!$omp target device (ancestor : a + 1)
!$omp end target
!$omp target device (device_num:42)
!$omp end target
!$omp target device (42)
!$omp end target
! Ensure that no OpenMP constructs appear inside target regions with 'ancestor'.
!$omp target device (ancestor: 1)
!$omp teams ! { dg-error "OpenMP constructs are not allowed in target region with 'ancestor'" }
!$omp end teams
!$omp end target
!$omp target device (device_num: 1)
!$omp teams
!$omp end teams
!$omp end target
!$omp target device (1)
!$omp teams
!$omp end teams
!$omp end target
! Ensure that with 'ancestor' only the 'device', 'firstprivate', 'private',
! 'defaultmap', and 'map' clauses appear on the construct.
!$omp target nowait device (ancestor: 1) ! { dg-error "with 'ancestor', only the 'device', 'firstprivate', 'private', 'defaultmap', and 'map' clauses may appear on the construct" }
!$omp end target
!$omp target device (ancestor: 1) nowait ! { dg-error "with 'ancestor', only the 'device', 'firstprivate', 'private', 'defaultmap', and 'map' clauses may appear on the construct" }
!$omp end target
!$omp target nowait device (device_num: 1)
!$omp end target
!$omp target nowait device (1)
!$omp end target
!$omp target device (ancestor: 1) firstprivate (a) private (b) defaultmap (none) map (c)
!$omp end target
! Ensure that 'ancestor' is only used with 'target' constructs (not with
! 'target data', 'target update' etc.).
! The following test case is marked with 'xfail' because a previous 'sorry' from
! 'reverse_offload' suppresses the 'sorry' for 'ancestor'.
!$omp target data map (a) device (ancestor: 1) ! { dg-error "'device' clause with 'ancestor' is only allowed on 'target' construct" }
!$omp end target data
!$omp target enter data map (to: a) device (ancestor: 1) ! { dg-error "'device' clause with 'ancestor' is only allowed on 'target' construct" }
!$omp target exit data map (from: a) device (ancestor: 1) ! { dg-error "'device' clause with 'ancestor' is only allowed on 'target' construct" }
!$omp target update to (a) device (ancestor: 1) ! { dg-error "'device' clause with 'ancestor' is only allowed on 'target' construct" }
!$omp target device (ancestor: 1) if(.false.)
! { dg-error "with 'ancestor', only the 'device', 'firstprivate', 'private', 'defaultmap', and 'map' clauses may appear on the construct" "" { target *-*-* } .-1 }
!$omp end target
end
|
