4 with Ada.Text_IO; use Ada.Text_IO;
6 procedure test_table1 is
8 A, B, C, D, E : Integer := 0;
9 F, G, H, I, J : Integer := 1;
10 K, L, M, N, O : Integer := 2;
15 package Tab is new GNAT.Table (Rec, Positive, 1, 4, 30);
24 for J in 1 .. 1_000_000 loop
27 Tab.Append (Tab.Table (Last));
30 Put_Line ("exception raise for J =" & J'Img);
34 if Tab.Table (Tab.Last) /= R then
35 Put_Line ("Last is not what is expected");