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