! { 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 |