1implicit none
2integer :: a, b, i
3a = 0
4
5!$omp simd reduction(task,+:a)  ! { dg-error "invalid 'task' reduction modifier on construct other than 'parallel', 'do' or 'sections'" }
6do i=1,10
7  a = a + 1
8end do
9end
10