| ! { dg-do compile } | |
| ! | |
| ! PR 44207: ICE with ALLOCATABLE components and SOURCE | |
| ! | |
| ! Contributed by Hans-Werner Boschmann <boschmann@tp1.physik.uni-siegen.de> | |
| program ice_prog | |
| type::ice_type | |
| integer,dimension(:),allocatable::list | |
| end type ice_type | |
| type(ice_type)::this | |
| integer::dim=10,i | |
| allocate(this%list(dim),source=[(i,i=1,dim)]) | |
| end program ice_prog |