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