1 subroutine matrix_multiply(a
,b
,c
,n
)
3 real(8), dimension(n
,n
) :: a
,b
,c
8 c(j
,i
) = c(j
,i
) + a(k
,i
) * b(j
,k
)
13 end subroutine matrix_multiply
15 ! { dg-final { scan-tree-dump-times "number of SCoPs: 1" 1 "graphite" { xfail *-*-* } } }
16 ! { dg-final { scan-tree-dump-times "will be loop blocked" 1 "graphite" { xfail *-*-* } } }
17 ! { dg-final { cleanup-tree-dump "graphite" } }
