blob: df8ad06c123e0da6703612df1ef93747fa9f6d95 [file] [log] [blame]
! { dg-do compile }
! { dg-options "-ffrontend-optimize" }
! PR fortran/99839 - ICE in inline_matmul_assign
program p
real :: x(3, 3) = 1.0
class(*), allocatable :: z(:, :)
z = matmul(x, x)
end