2 ! { dg-options "-finline-matmul-limit=0" }
3 ! PR 86704 - this used to segfault.
5 program testmaticovenasobeni
8 character(len
=10) :: line
9 write (unit
=line
,fmt
=*) testmatmul(120,1,3)
13 function testmatmul(m
,n
,o
)
14 integer, intent(in
) :: m
,n
,o
15 real :: A(n
,m
),B(n
,o
),C(m
,o
)
21 C
=matmul(transpose(A
),B
)
25 end program testmaticovenasobeni