! { dg-do compile } | |
implicit none | |
integer :: a, b, i | |
a = 0 | |
!$omp simd reduction(inscan,+:a) ! { dg-error "30: With INSCAN at .1., expected loop body with ..OMP SCAN between two structured-block-sequences" } | |
do i=1,10 | |
a = a + 1 | |
end do | |
!$omp parallel | |
!$omp do reduction(inscan,+:a) ! { dg-error "28: With INSCAN at .1., expected loop body with ..OMP SCAN between two structured-block-sequences" } | |
do i=1,10 | |
a = a + 1 | |
end do | |
!$omp end parallel | |
end |