1! { dg-do compile }
2!
3! PR fortran/57033
4! ICE on a structure constructor of an extended derived type whose parent
5! type last component has a default initializer
6!
7! Contributed by Tilo Schwarz <tilo@tilo-schwarz.de>
8
9program ice
10
11type m
12    integer i
13    logical :: f = .false.
14end type m
15
16type, extends(m) :: me
17end type me
18
19type(me) meo
20
21meo = me(1)              ! ICE
22end program ice
23