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