der_pointer_1.f90

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

! { dg-do compile }
! PR13010
! Arrays of self-referential pointers
module test
   type list_t
      type(list_t), pointer :: next
   end type list_t

   type listptr_t
      type(list_t), pointer :: this
   end type listptr_t

   type x_t
      type(listptr_t), pointer :: arr(:)
   end type x_t

   type(x_t), pointer :: x
end module test

! { dg-final { cleanup-modules "test" } }