1 files changed, 9 insertions, 0 deletions
diff --git a/gcc/testsuite/gnat.dg/specs/self_class.ads b/gcc/testsuite/gnat.dg/specs/self_class.ads
new file mode 100644
index 00000000000..56c7ab4760c
--- /dev/null
+++ b/gcc/testsuite/gnat.dg/specs/self_class.ads
@@ -0,0 +1,9 @@
+--  { dg-do compile }
+
+package Self_Class is
+   type P6 is private;
+private
+   type P6 is tagged record
+      Self : access P6'Class;
+   end record;
+end Self_Class;