gcc/testsuite/gfortran.dg/default_initialization_1.f90

   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 !
  13 module 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" }
  19 end module bad
  20
  21 ! { dg-final { cleanup-modules "bad" } }