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