blob: 00aa0cc8a6b345776ca5b4e8618c0c8d34ee4fba [file] [log] [blame]
! { dg-do run }
!
! PR 45828: [4.6 Regression] No default initialization of derived type members?
!
! Contributed by Juha <jpr@csc.fi>
program fail1
type a
integer :: i
end type a
type b
type(a) :: acomp = a(5)
end type b
type(b), allocatable :: c(:)
allocate(c(1))
if (c(1) % acomp % i /= 5) STOP 1
end program fail1