1! { dg-do compile }
2
3implicit none
4integer :: a, b, i
5a = 0
6
7!$omp simd reduction(inscan,+:a)  ! { dg-error "30: With INSCAN at .1., expected loop body with ..OMP SCAN between two structured-block-sequences" }
8do i=1,10
9  a = a + 1
10end do
11
12!$omp parallel
13!$omp do reduction(inscan,+:a)  ! { dg-error "28: With INSCAN at .1., expected loop body with ..OMP SCAN between two structured-block-sequences" }
14do i=1,10
15  a = a + 1
16end do
17!$omp end parallel
18end
19