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
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
|
!RUN: %python %S/../test_errors.py %s %flang -fopenmp -fopenmp-version=52 -Werror
subroutine f10(x)
integer :: x
!PORTABILITY: The specification of modifiers without comma separators for the 'MAP' clause has been deprecated in OpenMP 5.2
!$omp target map(always, present close, to: x)
x = x + 1
!$omp end target
end
subroutine f11(x)
integer :: x
!PORTABILITY: The specification of modifiers without comma separators for the 'MAP' clause has been deprecated in OpenMP 5.2
!$omp target map(always, present, close to: x)
x = x + 1
!$omp end target
end
subroutine f12(x)
integer :: x
!WARNING: Duplicate map-type-modifier entry 'PRESENT' will be ignored
!$omp target map(always, present, close, present, to: x)
x = x + 1
!$omp end target
end
subroutine f13(x)
integer :: x(10)
!ERROR: The iterator variable must be of integer type
!ERROR: Must have INTEGER type, but is REAL(4)
!$omp target map(present, iterator(real :: i = 1:10), to: x(i))
x = x + 1
!$omp end target
end
subroutine f14(x)
integer :: x(10)
!ERROR: The begin and end expressions in iterator range-specification are mandatory
!$omp target map(present, iterator(integer :: i = :10:1), to: x(i))
x = x + 1
!$omp end target
end
subroutine f15(x)
integer :: x(10)
!ERROR: The begin and end expressions in iterator range-specification are mandatory
!$omp target map(present, iterator(integer :: i = 1:), to: x(i))
x = x + 1
!$omp end target
end
subroutine f16(x)
integer :: x(10)
!ERROR: The begin and end expressions in iterator range-specification are mandatory
!$omp target map(present, iterator(integer :: i = 1::-1), to: x(i))
x = x + 1
!$omp end target
end
subroutine f17(x)
integer :: x(10)
!WARNING: The step value in the iterator range is 0
!$omp target map(present, iterator(integer :: i = 1:2:0), to: x(i))
x = x + 1
!$omp end target
end
subroutine f18(x)
integer :: x(10)
!WARNING: The begin value is less than the end value in iterator range-specification with a negative step
!$omp target map(present, iterator(integer :: i = 1:10:-2), to: x(i))
x = x + 1
!$omp end target
end
subroutine f19(x)
integer :: x(10)
!WARNING: The begin value is greater than the end value in iterator range-specification with a positive step
!$omp target map(present, iterator(integer :: i = 12:1:2), to: x(i))
x = x + 1
!$omp end target
end
subroutine f1a(x)
integer :: x(10)
!ERROR: 'iterator' modifier cannot occur multiple times
!$omp target map(present, iterator(i = 1:2), iterator(j = 1:2), to: x(i + j))
x = x + 1
!$omp end target
end
subroutine f23(x)
integer :: x(10)
!ERROR: 'map-type' should be the last modifier
!$omp target map(present, from, iterator(i = 1:10): x(i))
x = x + 1
!$omp end target
end
|
