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
|
! RUN: %python %S/../test_errors.py %s %flang -fopenmp
! OpenMP Version 4.5
! Various checks with the ordered construct
SUBROUTINE LINEAR_GOOD(N)
INTEGER N, i, j, a, b(10)
!$omp target
!$omp teams
!$omp distribute parallel do simd linear(i)
do i = 1, N
a = 3.14
enddo
!$omp end distribute parallel do simd
!$omp end teams
!$omp end target
END SUBROUTINE LINEAR_GOOD
SUBROUTINE LINEAR_BAD(N)
INTEGER N, i, j, a, b(10)
!$omp target
!$omp teams
!ERROR: Variable 'j' not allowed in `LINEAR` clause, only loop iterator can be specified in `LINEAR` clause of a construct combined with `DISTRIBUTE`
!$omp distribute parallel do simd linear(j)
do i = 1, N
a = 3.14
enddo
!$omp end distribute parallel do simd
!$omp end teams
!$omp end target
!$omp target
!$omp teams
!ERROR: Variable 'j' not allowed in `LINEAR` clause, only loop iterator can be specified in `LINEAR` clause of a construct combined with `DISTRIBUTE`
!ERROR: Variable 'b' not allowed in `LINEAR` clause, only loop iterator can be specified in `LINEAR` clause of a construct combined with `DISTRIBUTE`
!$omp distribute parallel do simd linear(j) linear(b)
do i = 1, N
a = 3.14
enddo
!$omp end distribute parallel do simd
!$omp end teams
!$omp end target
!$omp target
!$omp teams
!ERROR: Variable 'j' not allowed in `LINEAR` clause, only loop iterator can be specified in `LINEAR` clause of a construct combined with `DISTRIBUTE`
!ERROR: Variable 'b' not allowed in `LINEAR` clause, only loop iterator can be specified in `LINEAR` clause of a construct combined with `DISTRIBUTE`
!$omp distribute parallel do simd linear(j, b)
do i = 1, N
a = 3.14
enddo
!$omp end distribute parallel do simd
!$omp end teams
!$omp end target
!ERROR: `DISTRIBUTE` region has to be strictly nested inside `TEAMS` region.
!ERROR: Variable 'j' not allowed in `LINEAR` clause, only loop iterator can be specified in `LINEAR` clause of a construct combined with `DISTRIBUTE`
!$omp distribute simd linear(i,j)
do i = 1, N
do j = 1, N
a = 3.14
enddo
enddo
!$omp end distribute simd
!ERROR: `DISTRIBUTE` region has to be strictly nested inside `TEAMS` region.
!ERROR: Variable 'j' not allowed in `LINEAR` clause, only loop iterator can be specified in `LINEAR` clause of a construct combined with `DISTRIBUTE`
!$omp distribute simd linear(i,j) collapse(1)
do i = 1, N
do j = 1, N
a = 3.14
enddo
enddo
!$omp end distribute simd
!ERROR: `DISTRIBUTE` region has to be strictly nested inside `TEAMS` region.
!$omp distribute simd linear(i,j) collapse(2)
do i = 1, N
do j = 1, N
a = 3.14
enddo
enddo
!$omp end distribute simd
END SUBROUTINE LINEAR_BAD
|
