! { dg-do run } | |
! | |
! Contributed by Melven Roehrig-Zoellner <Melven.Roehrig-Zoellner@DLR.de> | |
! PR fortran/66035 | |
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)] ! This caused an ICE | |
class default | |
STOP 1 | |
end select | |
end subroutine | |
end program |