gcc/testsuite/gfortran.dg/allocate_derived_5.f90

   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
   7 program 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()
  20 end program fail1