blob: ec48146736916f17fe9dd8e0cc686a6670ec91b9 [file] [log] [blame]
! { dg-do compile }
! PR 24426
! Pointer-components of derived type with initialized components
module crash
implicit none
type foo
integer :: i = 0
type (foo), pointer :: next
end type foo
type (foo), save :: bar
end module crash