aboutsummaryrefslogtreecommitdiffstats
path: root/gcc-4.9/gcc/testsuite/gfortran.dg/class_21.f03
blob: 4a7135d3bba32b555ead7ad8c492ade6bebcf7ad (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
! { dg-do compile }
!
! PR 43990: [OOP] ICE in output_constructor_regular_field, at varasm.c:4995
!
! Reported by Hans-Werner Boschmann <boschmann@tp1.physik.uni-siegen.de>

module m

  type :: t
     logical :: l = .true.
     class(t),pointer :: cp => null()
  end type

  type(t),save :: default_t

end module