summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/der_pointer_1.f90
blob: b9f98f518b9b617ad03269fc3563c621319531aa (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
! { 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" } }