blob: deb0569094581314a677a5e8cb3d26c7aa2a4ac3 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
! { 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
|
