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