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