[Bug fortran/78395] [OOP] error on polymorphic assignment

[vehre at gcc dot gnu.org]

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

vehre at gcc dot gnu.org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|NEW                         |ASSIGNED
           Assignee|unassigned at gcc dot gnu.org      |vehre at gcc dot gnu.org

--- Comment #8 from vehre at gcc dot gnu.org ---
(In reply to janus from comment #3)
> Somewhat reduced test case (without all the abstract stuff):
<snipp>
> program minimal
>   use types_mod
>   implicit none
> 
>   class(t1), allocatable :: v4
>   class(t2), allocatable :: v6
> 
>   allocate(v4, source=t1(4)) ! Also fails if I use `allocate(t1 :: v4)`

    allocate(v6) ! is missing here, right ??!!??

>   v6 = 3 * v4%get_t2() ! This line is the one which causes ICE
> 
> end

Patch in regtesting.