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" } }
|
