2 ! { dg-require-effective-target tls }
6 integer, dimension (*) :: ia1
7 integer, dimension (10) :: ia2
9 real, dimension (5) :: ra1
10 double precision :: d1
11 double precision, dimension (4) :: da1
13 complex, dimension (7) :: ca1
15 logical, dimension (3) :: la1
21 type(t
), dimension (2) :: ta1
22 real, pointer :: p1
=> NULL()
23 integer, allocatable
:: aa1 (:,:)
25 !$omp threadprivate (i2)
28 !$omp parallel reduction (+:i3, ia2, r1, ra1, d1, da1, c1, ca1)
30 !$omp parallel reduction (*:i3, ia2, r1, ra1, d1, da1, c1, ca1)
32 !$omp parallel reduction (-:i3, ia2, r1, ra1, d1, da1, c1, ca1)
34 !$omp parallel reduction (.and.:l1, la1)
36 !$omp parallel reduction (.or.:l1, la1)
38 !$omp parallel reduction (.eqv.:l1, la1)
40 !$omp parallel reduction (.neqv.:l1, la1)
42 !$omp parallel reduction (min:i3, ia2, r1, ra1, d1, da1)
44 !$omp parallel reduction (max:i3, ia2, r1, ra1, d1, da1)
46 !$omp parallel reduction (iand:i3, ia2)
48 !$omp parallel reduction (ior:i3, ia2)
50 !$omp parallel reduction (ieor:i3, ia2)
52 !$omp parallel reduction (+:/blk/) ! { dg-error "Syntax error" }
53 !$omp end parallel ! { dg-error "Unexpected" }
54 !$omp parallel reduction (+:i2) ! { dg-error "THREADPRIVATE object" }
56 !$omp parallel reduction (*:p1) ! { dg-error "POINTER object" }
58 !$omp parallel reduction (-:aa1) ! { dg-error "is ALLOCATABLE" }
60 !$omp parallel reduction (*:ia1) ! { dg-error "Assumed size" }
62 !$omp parallel reduction (+:l1) ! { dg-error "is LOGICAL" }
64 !$omp parallel reduction (*:la1) ! { dg-error "is LOGICAL" }
66 !$omp parallel reduction (-:a1) ! { dg-error "is CHARACTER" }
68 !$omp parallel reduction (+:t1) ! { dg-error "is TYPE" }
70 !$omp parallel reduction (*:ta1) ! { dg-error "is TYPE" }
72 !$omp parallel reduction (.and.:i3) ! { dg-error "must be LOGICAL" }
74 !$omp parallel reduction (.or.:ia2) ! { dg-error "must be LOGICAL" }
76 !$omp parallel reduction (.eqv.:r1) ! { dg-error "must be LOGICAL" }
78 !$omp parallel reduction (.neqv.:ra1) ! { dg-error "must be LOGICAL" }
80 !$omp parallel reduction (.and.:d1) ! { dg-error "must be LOGICAL" }
82 !$omp parallel reduction (.or.:da1) ! { dg-error "must be LOGICAL" }
84 !$omp parallel reduction (.eqv.:c1) ! { dg-error "must be LOGICAL" }
86 !$omp parallel reduction (.neqv.:ca1) ! { dg-error "must be LOGICAL" }
88 !$omp parallel reduction (.and.:a1) ! { dg-error "must be LOGICAL" }
90 !$omp parallel reduction (.or.:t1) ! { dg-error "must be LOGICAL" }
92 !$omp parallel reduction (.eqv.:ta1) ! { dg-error "must be LOGICAL" }
94 !$omp parallel reduction (min:c1) ! { dg-error "must be INTEGER or REAL" }
96 !$omp parallel reduction (max:ca1) ! { dg-error "must be INTEGER or REAL" }
98 !$omp parallel reduction (max:l1) ! { dg-error "must be INTEGER or REAL" }
100 !$omp parallel reduction (min:la1) ! { dg-error "must be INTEGER or REAL" }
102 !$omp parallel reduction (max:a1) ! { dg-error "must be INTEGER or REAL" }
104 !$omp parallel reduction (min:t1) ! { dg-error "must be INTEGER or REAL" }
106 !$omp parallel reduction (max:ta1) ! { dg-error "must be INTEGER or REAL" }
108 !$omp parallel reduction (iand:r1) ! { dg-error "must be INTEGER" }
110 !$omp parallel reduction (ior:ra1) ! { dg-error "must be INTEGER" }
112 !$omp parallel reduction (ieor:d1) ! { dg-error "must be INTEGER" }
114 !$omp parallel reduction (ior:da1) ! { dg-error "must be INTEGER" }
116 !$omp parallel reduction (iand:c1) ! { dg-error "must be INTEGER" }
118 !$omp parallel reduction (ior:ca1) ! { dg-error "must be INTEGER" }
120 !$omp parallel reduction (ieor:l1) ! { dg-error "must be INTEGER" }
122 !$omp parallel reduction (iand:la1) ! { dg-error "must be INTEGER" }
124 !$omp parallel reduction (ior:a1) ! { dg-error "must be INTEGER" }
126 !$omp parallel reduction (ieor:t1) ! { dg-error "must be INTEGER" }
128 !$omp parallel reduction (iand:ta1) ! { dg-error "must be INTEGER" }