gcc/testsuite/gfortran.dg/default_initialization_7.f90

   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
   9 program ice
  10
  11 type m
  12     integer i
  13     logical :: f = .false.
  14 end type m
  15
  16 type, extends(m) :: me
  17 end type me
  18
  19 type(me) meo
  20
  21 meo = me(1)              ! ICE
  22 end program ice