obtained gcc-4.6.4.tar.bz2 from upstream website;upstream

verified gcc-4.6.4.tar.bz2.sig;
imported gcc-4.6.4 source tree from verified upstream tarball.

downloading a git-generated archive based on the 'upstream' tag
should provide you with a source tree that is binary identical
to the one extracted from the above tarball.

if you have obtained the source via the command 'git clone',
however, do note that line-endings of files in your working
directory might differ from line-endings of the respective
files in the upstream repository.

1 files changed, 36 insertions, 0 deletions

diff --git a/gcc/testsuite/gnat.dg/test_self_ref.adb b/gcc/testsuite/gnat.dg/test_self_ref.adb
new file mode 100644
index 000000000..0fe630212
--- /dev/null
+++ b/gcc/testsuite/gnat.dg/test_self_ref.adb
@@ -0,0 +1,36 @@
+-- { dg-do run }
+
+procedure Test_Self_Ref is
+   type T2;
+   type T2_Ref is access all T2; 
+
+   function F (X: T2_Ref) return Integer;
+
+   type T2 is limited record
+      Int1 : Integer := F (T2'Unchecked_Access);
+      Int2 : Integer := F (T2'Unrestricted_Access);
+   end record; 
+
+   Counter : Integer := 2;
+
+   function F (X: T2_Ref) return Integer is
+   begin   
+      Counter := Counter * 5;
+      return Counter;
+   end F;  
+
+   Obj1 : T2_Ref := new T2'(10,20);
+   Obj2 : T2_Ref := new T2; 
+   Obj3 : T2_Ref := new T2'(others => <>); 
+
+begin   
+  if Obj1.Int1 /= 10 or else Obj1.Int2 /= 20 then    
+     raise Program_Error;
+  end if; 
+  if Obj2.Int1 /= 10 or else Obj2.Int2 /= 50 then    
+     raise Program_Error;
+  end if; 
+  if Obj3.Int1 /= 250 or else Obj3.Int2 /= 1250 then    
+     raise Program_Error;
+  end if; 
+end Test_Self_Ref;