gcc/testsuite/gfortran.dg/der_pointer_1.f90

   1 ! { dg-do compile }
   2 ! PR13010
   3 ! Arrays of self-referential pointers
   4 module test
   5    type list_t
   6       type(list_t), pointer :: next
   7    end type list_t
   8
   9    type listptr_t
  10       type(list_t), pointer :: this
  11    end type listptr_t
  12
  13    type x_t
  14       type(listptr_t), pointer :: arr(:)
  15    end type x_t
  16
  17    type(x_t), pointer :: x
  18 end module test
  19
  20 ! { dg-final { cleanup-modules "test" } }