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
7module 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
16end module
17