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
|
! RUN: %S/test_symbols.sh %s %t %flang_fc1 -fopenmp
! REQUIRES: shell
! OpenMP Version 4.5
! 2.15.3.6 Reduction Clause Positive cases
!DEF: /omp_reduction MainProgram
program omp_reduction
!DEF: /omp_reduction/i ObjectEntity INTEGER(4)
integer i
!DEF: /omp_reduction/k ObjectEntity INTEGER(4)
integer :: k = 10
!DEF: /omp_reduction/m ObjectEntity INTEGER(4)
integer :: m = 12
!$omp parallel do reduction(max:k)
!DEF: /omp_reduction/Block1/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)
do i=1,10
!DEF: /omp_reduction/Block1/k (OmpReduction) HostAssoc INTEGER(4)
!DEF: /omp_reduction/max ELEMENTAL, INTRINSIC, PURE (Function) ProcEntity
!REF: /omp_reduction/m
k = max(k, m)
end do
!$omp end parallel do
!$omp parallel do reduction(min:k)
!DEF: /omp_reduction/Block2/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)
do i=1,10
!DEF: /omp_reduction/Block2/k (OmpReduction) HostAssoc INTEGER(4)
!DEF: /omp_reduction/min ELEMENTAL, INTRINSIC, PURE (Function) ProcEntity
!REF: /omp_reduction/m
k = min(k, m)
end do
!$omp end parallel do
!$omp parallel do reduction(iand:k)
!DEF: /omp_reduction/Block3/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)
do i=1,10
!DEF: /omp_reduction/Block3/k (OmpReduction) HostAssoc INTEGER(4)
!DEF: /omp_reduction/iand ELEMENTAL, INTRINSIC, PURE (Function) ProcEntity
!REF: /omp_reduction/m
k = iand(k, m)
end do
!$omp end parallel do
!$omp parallel do reduction(ior:k)
!DEF: /omp_reduction/Block4/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)
do i=1,10
!DEF: /omp_reduction/Block4/k (OmpReduction) HostAssoc INTEGER(4)
!DEF: /omp_reduction/ior ELEMENTAL, INTRINSIC, PURE (Function) ProcEntity
!REF: /omp_reduction/m
k = ior(k, m)
end do
!$omp end parallel do
!$omp parallel do reduction(ieor:k)
!DEF: /omp_reduction/Block5/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)
do i=1,10
!DEF: /omp_reduction/Block5/k (OmpReduction) HostAssoc INTEGER(4)
!DEF: /omp_reduction/ieor ELEMENTAL, INTRINSIC, PURE (Function) ProcEntity
!REF: /omp_reduction/m
k = ieor(k,m)
end do
!$omp end parallel do
end program omp_reduction
|
