1 files changed, 20 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.dg/der_pointer_1.f90 b/gcc/testsuite/gfortran.dg/der_pointer_1.f90
new file mode 100644
index 000000000..b9f98f518
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/der_pointer_1.f90
@@ -0,0 +1,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" } }