gcc/testsuite/gfortran.dg/matmul_11.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-ffrontend-optimize -fdump-tree-original" }
   3 ! PR 77915 - ICE of matmul with forall.
   4 program x
   5   integer, parameter :: d = 3
   6   real,dimension(d,d,d) :: cube,xcube
   7   real, dimension(d,d) :: cmatrix
   8   integer :: i,j
   9   forall(i=1:d,j=1:d)
  10      xcube(i,j,:) = matmul(cmatrix,cube(i,j,:))
  11   end forall
  12 end program x
  13
  14 ! { dg-final { scan-tree-dump-times "_gfortran_matmul" 1 "original" } }