blob: 5bfda8b6f8d1093b2e94e90fe905146bed2d13cd [file] [log] [blame]
! { 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