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
7type:: one
8end type
9
10type, extends(one) :: two
11 integer :: a
12end type
13
14type(two) :: wo = two(6)
15
16if (wo%a /= 6) STOP 1
17
18end
19