| ! { 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 |