der_pointer_1.f90

来自「Mac OS X 10.4.9 for x86 Source Code gcc」· F90 代码 · 共 19 行

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