gcc/testsuite/gfortran.dg/default_initialization_4.f90

   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 !
   9 module 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
  15 end module good
  16
  17 use good
  18 if (t%x /= 42) call abort()
  19 t%x = 0
  20 if (t%x /= 0) call abort()
  21 end
  22 ! { dg-final { cleanup-modules "good" } }