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
|
! RUN: %S/test_errors.sh %s %t %flang -fopenmp
! REQUIRES: shell
! OpenMP Version 4.5
! 2.7.4 workshare Construct
! Checks for OpenMP Workshare construct
subroutine omp_workshare(aa, bb, cc, dd, ee, ff, n)
integer i, j, n, a(10), b(10)
integer, pointer :: p
integer, target :: t
real aa(n,n), bb(n,n), cc(n,n), dd(n,n), ee(n,n), ff(n,n)
!ERROR: The structured block in a WORKSHARE construct may consist of only SCALAR or ARRAY assignments, FORALL or WHERE statements, FORALL, WHERE, ATOMIC, CRITICAL or PARALLEL constructs
!$omp workshare
p => t
!$omp parallel
cc = dd
!$omp end parallel
!ERROR: OpenMP constructs enclosed in WORKSHARE construct may consist of ATOMIC, CRITICAL or PARALLEL constructs only
!ERROR: A worksharing region may not be closely nested inside a worksharing, explicit task, taskloop, critical, ordered, atomic, or master region
!$omp parallel workshare
!ERROR: A worksharing region may not be closely nested inside a worksharing, explicit task, taskloop, critical, ordered, atomic, or master region
!$omp single
ee = ff
!$omp end single
!$omp end parallel workshare
where (aa .ne. 0) cc = bb / aa
where (b .lt. 2) b = sum(a)
where (aa .ge. 2.0)
cc = aa + bb
elsewhere
cc = dd + ee
end where
forall (i = 1:10, n > i) a(i) = b(i)
forall (j = 1:10)
a(j) = a(j) + b(j)
end forall
!$omp atomic update
j = j + sum(a)
!$omp end workshare
end subroutine omp_workshare
|
