1! PR middle-end/102431 2 3program pr102431 4 integer :: a(2) 5 a(:) = 0 6 !$omp parallel loop reduction(+:a) 7 do i = 1, 8 8 a = a + 1 9 end do 10end 11