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
|
module m
integer a, b
end module m
subroutine f2 (c, d, e, f)
use m
implicit none
integer i, l, c(*), d(*), e(64), f(64)
l = 1
!$omp do reduction (inscan, +: a) linear (l) ! { dg-error "'inscan' 'reduction' clause used together with 'linear' clause for a variable other than loop iterator" }
do i = 1, 64
block
a = a + c(i)
l = l + 1
end block
!$omp scan inclusive (a)
d(i) = a
end do
end
subroutine f5 (c, d)
use m
implicit none
integer i, c(64), d(64)
!$omp simd reduction (inscan, +: a)
do i = 1, 64
d(i) = a
!$omp scan exclusive (a, b) ! { dg-error "'b' specified in 'exclusive' clause but not in 'inscan' 'reduction' clause on the containing construct" }
a = a + c(i)
end do
end
subroutine f6 (c, d)
use m
implicit none
integer i, c(64), d(64)
!$omp simd reduction (inscan, +: a, b) ! { dg-error "'b' specified in 'inscan' 'reduction' clause but not in 'scan' directive clause" }
do i = 1, 64
d(i) = a
!$omp scan exclusive (a)
a = a + c(i)
end do
end
subroutine f7
use m
implicit none
integer i
!$omp simd reduction (inscan, +: a)
do i = 1, 64
if (i == 27) goto 123 ! { dg-error "invalid branch to/from OpenMP structured block" }
! { dg-warning "is not in the same block as the GOTO statement" "" { target *-*-* } .-1 }
!$omp scan exclusive (a)
block
123 a = 0 ! { dg-error "jump to label 'l1'" "" { target c++ } }
! { dg-warning "is not in the same block as the GOTO statement" "" { target *-*-* } .-1 }
end block
end do
end
|
