1! { dg-do run }
2!
3! PR 45828: [4.6 Regression] No default initialization of derived type members?
4!
5! Contributed by Juha <jpr@csc.fi>
6
7program fail1
8   type a
9      integer :: i
10   end type a
11
12   type b
13     type(a) :: acomp = a(5)
14   end type b
15
16   type(b), allocatable :: c(:)
17
18   allocate(c(1))
19   if (c(1) % acomp % i /= 5) call abort()
20end program fail1
21