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
6program 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
13end
14
15
16