1! { dg-do compile }
2!
3! PR 42888: [4.5 Regression] ICE in fold_convert_loc, at fold-const.c:2670
4!
5! Contributed by Harald Anlauf <anlauf@gmx.de>
6
7  implicit none
8
9  type t
10     integer :: X = -999.0   ! Real initializer!
11  end type t
12
13  type(t), allocatable :: x
14  class(t), allocatable :: y,z
15
16  allocate (x)
17  allocate (y)
18  allocate (t::z)
19
20end
21