1module m 2 integer a, b 3end module m 4 5subroutine f3 (c, d) 6 use m 7 implicit none 8 integer i, c(64), d(64) 9 !$omp parallel reduction (inscan, +: a) ! { dg-error "'inscan' REDUCTION clause on construct other than DO, SIMD, DO SIMD, PARALLEL DO, PARALLEL DO SIMD" } 10 ! ... 11 !$omp end parallel 12 !$omp sections reduction (inscan, +: a) ! { dg-error "'inscan' REDUCTION clause on construct other than DO, SIMD, DO SIMD, PARALLEL DO, PARALLEL DO SIMD" } 13 !$omp section 14 ! ... 15 !$omp end sections 16end 17