der_pointer_4.f90

来自「用于进行gcc测试」· F90 代码 · 共 14 行

! { 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" } }