gcc/testsuite/gfortran.dg/gomp/pr77352.f90

   1 ! PR fortran/77352
   2 ! { dg-do compile }
   3 ! { dg-additional-options "-fstack-arrays -O2" }
   4 ! { dg-additional-options "-fopenacc" { target fopenacc } }
   5
   6 program pr77352
   7   real, allocatable :: a(:,:), b(:)
   8   integer :: m, n
   9   m = 4
  10   n = 2
  11   allocate (a(m,n), b(m))
  12   a = 1.0
  13 !$omp parallel workshare
  14   b(:) = [ sum(a, dim=1) ]
  15 !$omp end parallel workshare
  16 end