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