1! PR fortran/77352
2! { dg-do compile }
3! { dg-additional-options "-fstack-arrays -O2" }
4! { dg-additional-options "-fopenacc" { target fopenacc } }
5
6program 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
16end
17