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