[Bug fortran/59414] [4.8/4.9 Regression] [OOP] ICE in in gfc_conv_expr_descriptor on ALLOCATE inside SELECT TYPE

[pault at gcc dot gnu.org]

http://gcc.gnu.org/bugzilla/show_bug.cgi?id=59414

--- Comment #12 from Paul Thomas <pault at gcc dot gnu.org> ---
(In reply to janus from comment #3)

....snip....

> 
> module ObjectLists
>   implicit none
> 
>   type :: t
>   end type
>   
>   type Object_array_pointer
>     class(t), pointer :: p(:)
>   end type
> 
> contains
> 
>   subroutine AddArray (P, Pt)
>     class(t) :: P(:)
>     class(Object_array_pointer) :: Pt
> 
>     select type (Pt)
>     class is (Object_array_pointer)

ICE disappears with     type is (Object_array_pointer)

>       allocate(Pt%P(1:SIZE(P)), source=P)
>     end select
>   end subroutine
> 
> end module

Paul