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