6 ! The following is valid F2008 but not valid Fortran 90/2003
11 type default_initialization
13 end type default_initialization
14 type (default_initialization) t ! OK in F2008
18 if (t%x /= 42) call abort()
20 if (t%x /= 0) call abort()
22 ! { dg-final { cleanup-modules "good" } }