1! PR15365
2! Default initializers were being missed
3program main
4  type xyz
5     integer :: x = 123
6  end type xyz
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
12end
13