1 files changed, 21 insertions, 0 deletions
diff --git a/gcc/testsuite/gnat.dg/self1.adb b/gcc/testsuite/gnat.dg/self1.adb
new file mode 100644
index 000000000..dc6f485b8
--- /dev/null
+++ b/gcc/testsuite/gnat.dg/self1.adb
@@ -0,0 +1,21 @@
+--  { dg-do compile }
+
+procedure Self1 is      
+   type Event;
+        
+   type Link (E : access Event) is limited record
+      Val : Integer;
+   end record;
+
+   type Ptr is access all Event;
+   
+   type Event is tagged limited record
+      Inner : Link (Event'access);
+      Size  : Integer;
+   end record;              
+        
+   Obj2 : Ptr := new Event'(Inner => (Event'access, 15),
+                            Size => Link'size);
+begin
+   null;                    
+end;