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