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