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");