1! { dg-do compile } 2! 3! PR 44207: ICE with ALLOCATABLE components and SOURCE 4! 5! Contributed by Hans-Werner Boschmann <boschmann@tp1.physik.uni-siegen.de> 6 7program ice_prog 8 9type::ice_type 10 integer,dimension(:),allocatable::list 11end type ice_type 12 13type(ice_type)::this 14integer::dim=10,i 15 16allocate(this%list(dim),source=[(i,i=1,dim)]) 17 18end program ice_prog 19