https://gcc.gnu.org/bugzilla/show_bug.cgi?id=66035
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 #3 from vehre at gcc dot gnu.org ---
A shorter testcase is:
program test_pr66035
type t
end type t
type w
class(t), allocatable :: c
end type w
type(t) :: o
call test(o)
contains
subroutine test(o)
class(t), intent(inout) :: o
type(w), dimension(:), allocatable :: list
select type (o)
class is (t)
list = [w(o)]
class default
call abort()
end select
end subroutine
end program
