avx512-0037785/tests/webtbs/tw37382.pp


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

{$mode objfpc}
{$h+}

uses
  GDeque;

type
  TIntQueue = specialize TDeque<Integer>;

var
  Q: TIntQueue;

begin
  Q := TIntQueue.Create;
  Q.Insert(0, 12345);
  writeln('Size=',Q.Size);
  Q.Erase(0);
  writeln('Size=',Q.Size);
  Q.Free;
end.