test.adb


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

with Text_IO; use Text_IO;
with Ada.Strings.Fixed; use Ada.Strings.Fixed;
with Ada.Strings; use Ada.Strings;
with Ada.Containers.Vectors;

procedure Test is
    package Queue is new
        Ada.Containers.Vectors(Index_Type => Natural, Element_Type => Integer);
    Q: Queue.Vector;
begin
    for Index in 1..10 loop
        Q.Append(Index);
    end loop;
    while not Q.Is_Empty loop
        Put_Line(Integer'Image(Q(0)));
        Q.Delete_First;
    end loop;
end;