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