gcc/testsuite/gfortran.dg/inline_matmul_8.f90

   1 ! { dg-do  run }
   2 ! { dg-options "-ffrontend-optimize -fdump-tree-original" }
   3 ! PR 66041 - this used to ICE with an incomplete fix for the PR.
   4 program main
   5   implicit none
   6   real, dimension(1,-2:0) :: a1
   7   real, dimension(3,2) :: b1
   8   real, dimension(2) :: c1
   9
  10   data a1 /17., -23., 29./
  11   data b1 / 2.,  -3.,  5.,  -7., 11., -13./
  12
  13   c1 = matmul(a1(1,:), b1)
  14   if (any (c1-[248., -749.] /= 0.)) call abort
  15 end program main
  16
  17 ! { dg-final { scan-tree-dump-times "_gfortran_matmul" 0 "original" } }