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