gcc/testsuite/gfortran.dg/inline_matmul_23.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-Og -ffrontend-optimize -fcheck=bounds -fdump-tree-optimized" }
   3 ! Check that bounds checking is done only before the matrix
   4 ! multiplication.
   5
   6 module y
   7 contains
   8   subroutine x(a,b,c)
   9     real, dimension(:,:) :: a, b, c
  10     c = matmul(a,b)
  11   end subroutine x
  12 end module y
  13 ! { dg-final { scan-tree-dump-times "_runtime_error" 3 "optimized" } }