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