1! { dg-do  run }
2! { dg-options "-finline-matmul-limit=0" }
3! PR 86704 - this used to segfault.
4
5program testmaticovenasobeni
6implicit none
7
8  character(len=10) :: line
9  write (unit=line,fmt=*) testmatmul(120,1,3)
10
11  contains
12
13   function testmatmul(m,n,o)
14     integer, intent(in) :: m,n,o
15     real    :: A(n,m),B(n,o),C(m,o)
16     logical :: testmatmul
17
18     call random_number(A)
19     call random_number(B)
20
21     C=matmul(transpose(A),B)
22     testmatmul=.true.
23   end function
24
25end program testmaticovenasobeni
26