[Bug fortran/104048] ICE with recursively defined derived type

[pinskia at gcc dot gnu.org]

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

--- Comment #3 from Andrew Pinski <pinskia at gcc dot gnu.org> ---
(In reply to Arjen Markus from comment #2)
> That reduced example is wonderfully compact! (I checked for similar reports
> but probably missed bug report 79440, because it was not associated with
> "recursive" data types)

Because I don't think it is related at all to recursive data types at all take:
MODULE h
    TYPE :: tt
    END TYPE tt
    TYPE :: tt1
        TYPE(tt), ALLOCATABLE :: left_view
    END TYPE tt1
CONTAINS
FUNCTION ff( arg ) result(res)
    CLASS(tt), INTENT(IN) :: arg
    CLASS(tt1),  ALLOCATABLE :: res
    ALLOCATE( res )
    res%left_view  = arg
END FUNCTION ff
END MODULE

We get the same ICE.