4 !$omp declare reduction (.le.:integer:omp_out = omp_out + omp_in) ! { dg-error "Invalid operator for" }
7 !$omp declare reduction (bar:real(kind=4):omp_out = omp_out + omp_in)
11 !$omp parallel do reduction (bar:r)
15 !$omp parallel do reduction (foo:r) ! { dg-error "foo not found" }
19 !$omp parallel do reduction (.gt.:r) ! { dg-error "cannot be used as a defined operator" }
25 !$omp declare reduction (foo:blah:omp_out=omp_out + omp_in) ! { dg-error "Unclassifiable OpenMP directive" }
28 !$omp declare reduction (foo:integer:a => null()) ! { dg-error "Invalid character in name" }
29 !$omp declare reduction (foo:integer:omp_out = omp_in + omp_out) &
30 !$omp & initializer(a => null()) ! { dg-error "Invalid character in name" }
34 !$omp declare reduction (foo:integer:a = b + 1) ! { dg-error "Variable other than OMP_OUT or OMP_IN used in combiner" }
35 !$omp declare reduction (bar:integer:omp_out = omp_out * omp_in) &
36 !$omp & initializer(b = a + 1) ! { dg-error "Variable other than OMP_PRIV or OMP_ORIG used in INITIALIZER clause" }
39 !$omp declare reduction (foo:integer:omp_out=omp_out+omp_in) &
40 !$omp & initializer(omp_orig=omp_priv)