1! PR fortran/42866
2! { dg-do run }
3
4program pr42866
5  integer, allocatable :: a(:)
6  allocate (a(16))
7  a = 0
8  !$omp parallel
9    !$omp sections reduction(+:a)
10      a = a + 1
11    !$omp section
12      a = a + 2
13    !$omp end sections
14  !$omp end parallel
15  if (any (a.ne.3)) STOP 1
16  deallocate (a)
17end
18