gcc/testsuite/gfortran.dg/matmul_14.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-O3 -fdump-tree-optimized" }
   3 ! Check that the default limit of 30 for inlining matmul applies.
   4 program main
   5   integer, parameter :: n = 30
   6   real, dimension(n,n) :: a, b, c
   7   call random_number(a)
   8   call random_number(b)
   9   c = matmul(a,b)
  10   print *,sum(c)
  11 end program main
  12 ! { dg-final { scan-tree-dump-times "_gfortran_matmul_r4" 0 "optimized" } }