1! { dg-do compile }
2! PR 24426
3! Pointer-components of derived type with initialized components
4module crash
5  implicit none
6  type foo
7    integer :: i = 0
8    type (foo), pointer :: next
9  end type foo
10  type (foo), save :: bar
11end module crash
12