fpcsrc/tests/test/tgeneric7.pp


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

{ %result=201 }

{ checks proper saving of compiler state }
{$mode objfpc}

{$R-}
uses
  ugeneric7;

type
  tmytype = specialize tgeneric<byte>;
var
  s : tmytype;
begin
  s:=tmytype.create;
  s.test;
  s.free;
end.