libgomp/testsuite/libgomp.fortran/allocatable5.f90

   1 ! PR fortran/42866
   2 ! { dg-do run }
   3
   4 program 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)) call abort
  16   deallocate (a)
  17 end