gcc/testsuite/gfortran.dg/inline_matmul_21.f90

   1 ! { dg-do compile }
   2 ! { dg-additional-options "-ffrontend-optimize" }
   3 ! PR 84133 - this used to ICE. Original test case by
   4 ! Gerhard Steinmetz.
   5
   6 program p
   7    real :: x(2,2) = 1.0
   8    real :: z(2,2)
   9    associate (y => matmul(x,x))
  10       z = y
  11    end associate
  12    print *, z
  13 end
  14
  15