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