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, 40 insertions, 0 deletions

diff --git a/gcc/testsuite/gnat.dg/test_table1.adb b/gcc/testsuite/gnat.dg/test_table1.adb
new file mode 100644
index 000000000..64155bfd8
--- /dev/null
+++ b/gcc/testsuite/gnat.dg/test_table1.adb
@@ -0,0 +1,40 @@
+--  { dg-do run }
+
+with GNAT.Table;
+with Ada.Text_IO; use Ada.Text_IO;
+ 
+procedure test_table1 is
+   type Rec is record
+     A, B, C, D, E : Integer := 0;
+     F, G, H, I, J : Integer := 1;
+     K, L, M, N, O : Integer := 2;
+   end record;
+   
+   R : Rec;
+        
+   package Tab is new GNAT.Table (Rec, Positive, 1, 4, 30);
+        
+   Last : Natural;
+        
+begin   
+   R.O := 3;
+        
+   Tab.Append (R);
+
+   for J in 1 .. 1_000_000 loop
+      Last := Tab.Last;
+      begin
+         Tab.Append (Tab.Table (Last));
+      exception
+         when others =>
+             Put_Line ("exception raise for J =" & J'Img);
+             raise;
+      end;
+
+      if Tab.Table (Tab.Last) /= R then
+         Put_Line ("Last is not what is expected");
+         Put_Line (J'Img);
+         return;
+      end if;
+   end loop;
+end;