1! PR fortran/70855
2! { dg-do compile }
3! { dg-additional-options "-O2" }
4
5program pr70855
6   integer, parameter :: m = 4
7   integer, parameter :: n = 2
8   real :: a(m,n)
9   real :: x(n)
10   real :: y(m)
11   a = 1.0
12   x = 1.0
13!$omp parallel
14!$omp workshare
15   y(1:m) = matmul ( a(1:m,1:n), x(1:n) )
16!$omp end workshare
17!$omp end parallel
18end program pr70855
19