1! { dg-do compile } 2! 3! PR 46344: [4.6 Regression] [OOP] ICE with allocatable CLASS components 4! 5! Contributed by Salvatore Filippone <sfilippone@uniroma2.it> 6 7module m 8 9 type t1 10 end type 11 12 type t2 13 class(t1), allocatable :: cc 14 end type 15 16 class(t2), allocatable :: sm 17 18end module m 19 20 21module m2 22 23 type t1 24 end type 25 26 type t2 27 class(t1), allocatable :: c 28 end type 29 30 type(t1) :: w 31 32end module m2 33 34 35program p 36 use m 37 implicit none 38 39 type(t2), allocatable :: x(:) 40 41 allocate(x(1)) 42 43end program p 44