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