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