1! { dg-do compile } 2! PR13010 3! Arrays of self-referential pointers 4module 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 18end module test 19