! { dg-do compile } ! { dg-additional-options "-ffrontend-optimize" } ! PR 84133 - this used to ICE. Original test case by ! Gerhard Steinmetz. program p real :: x(2,2) = 1.0 real :: z(2,2) associate (y => matmul(x,x)) z = y end associate print *, z end