1!
2! { dg-do compile }
3! { dg-options "-std=f2003" }
4! PR 20845; for F2008: PR fortran/43185
5!
6! In ISO/IEC 1539-1:1997(E), 4th constraint in section 11.3:
7!
8!   If an object of a type for which component-initialization is specified
9!   (R429) appears in the specification-part of a module and does not have
10!   the ALLOCATABLE or POINTER attribute, the object shall have the SAVE
11!   attribute.
12!
13module bad
14   implicit none
15   type default_initialization
16      integer :: x = 42
17   end type default_initialization
18   type (default_initialization) t ! { dg-error "default initialization" }
19end module bad
20