[Bug fortran/78641] [5/6/7 Regression] [OOP] ICE on polymorphic allocatable function in array constructor

[janus at gcc dot gnu.org]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=78641

--- Comment #3 from janus at gcc dot gnu.org ---
Here is a slightly simpler version, replacing the function call with a variable
reference, which fails with the same ICE with version 5, 6 and trunk:

implicit none
  type foo
  end type
  type(foo) :: bar(1)
  class(foo), allocatable :: x
  allocate(x, source=foo())
  bar = [x]
end

Version 4.9 again compiles fine, but I suspect that it generates wrong code.