! { dg-do compile } ! ! PR 42888: [4.5 Regression] ICE in fold_convert_loc, at fold-const.c:2670 ! ! Contributed by Harald Anlauf implicit none type t integer :: X = -999.0 ! Real initializer! end type t type(t), allocatable :: x class(t), allocatable :: y,z allocate (x) allocate (y) allocate (t::z) end