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