|
! { 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
|
|
|
|
! { dg-final { cleanup-modules "crash" } }
|