gcc/testsuite/gfortran.dg/class_21.f03

   1 ! { dg-do compile }
   2 !
   3 ! PR 43990: [OOP] ICE in output_constructor_regular_field, at varasm.c:4995
   4 !
   5 ! Reported by Hans-Werner Boschmann <boschmann@tp1.physik.uni-siegen.de>
   6
   7 module m
   8
   9   type :: t
  10      logical :: l = .true.
  11      class(t),pointer :: cp => null()
  12   end type
  13
  14   type(t),save :: default_t
  15
  16 end module
  17
  18 ! { dg-final { cleanup-modules "m" } }