gcc/testsuite/gfortran.fortran-torture/execute/der_init_3.f90

   1 ! PR15365
   2 ! Default initializers were being missed
   3 program main
   4   type xyz
   5      integer :: x = 123
   6   end
   7
   8   type (xyz) :: a  !! ok
   9   type (xyz) b    !!! not initialized !!!
  10   if (a%x.ne.123) call abort
  11   if (b%x.ne.123) call abort
  12 end