gcc/testsuite/gfortran.dg/derived_constructor_comps_4.f90

   1 ! { dg-do run }
   2 !
   3 ! PR 47789: [F03] Structure constructor of type extending DT with no components
   4 !
   5 ! Contributed by eddyg_61-bugzilla@yahoo.it
   6
   7 type:: one
   8 end type
   9
  10 type, extends(one) :: two
  11   integer :: a
  12 end type
  13
  14 type(two) :: wo = two(6)
  15
  16 if (wo%a /= 6) call abort()
  17
  18 end