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