blob: 425cae9470c435f4684bdd4e79b694f65f23dbee (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
! { dg-do compile }
! { dg-options "--param parloops-chunk-size=2 -ftree-parallelize-loops=2 -O1" }
program main
implicit none
real, dimension(:,:),allocatable :: a, b, c
real :: sm
allocate (a(2,2), b(2,2), c(2,2))
call random_number(a)
call random_number(b)
c = matmul(a,b)
sm = sum(c)
deallocate(a,b,c)
end program main
|