der_pointer_4.f90

来自「linux下编程用 编译软件」· F90 代码 · 共 12 行

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