gcc/testsuite/gfortran.dg/allocate_alloc_opt_7.f90

   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
   7 program ice_prog
   8
   9 type::ice_type
  10   integer,dimension(:),allocatable::list
  11 end type ice_type
  12
  13 type(ice_type)::this
  14 integer::dim=10,i
  15
  16 allocate(this%list(dim),source=[(i,i=1,dim)])
  17
  18 end program ice_prog