fpcsrc/tests/test/ugeneric7.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27

{$mode objfpc}

unit ugeneric7;

  interface

    type
      generic tgeneric<t> = class
        field : t;
        procedure test;
      end;

  implementation

{$R-}
    procedure tgeneric.test;
      var
        l : longint;
      begin
        l:=1234;
{$R+}
        field:=l;
{$R-}
        writeln(byte(field));
      end;
{$R+}
end.