[Flang] Compilation failed with "fatal internal error: Length type parameter not found in parameter order at /root/llvm-project/flang/lib/Semantics/runtime-type-info.cpp(49)" #82905
type base (l1)
integer, len :: l1
integer, allocatable :: arr(:)
end type base
type, extends(base) :: c1 (k1,l2)
integer, kind :: k1
integer, len :: l2
class(base(l1+l2)), pointer :: p
end type c1
type c2 (k2,l3,l4)
integer, kind :: k2
integer, len :: l3, l4
type(c1(l4,k2,l4)) :: t(l3)
end type c2
class(c2(1,:,:)), allocatable :: b(:)
end
Reproducible on Godbolt: https://godbolt.org/z/o35s7e5oP
Reproducer
Stack dump