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