1! 2! { dg-do run } 3! 4! PR fortran/43185 5! 6! The following is valid F2008 but not valid Fortran 90/2003 7! Cf. PR 20845 8! 9module good 10 implicit none 11 type default_initialization 12 integer :: x = 42 13 end type default_initialization 14 type (default_initialization) t ! OK in F2008 15end module good 16 17use good 18if (t%x /= 42) call abort() 19t%x = 0 20if (t%x /= 0) call abort() 21end 22