tests/test/tgeneric20.pp


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

{ %fail }
{$mode objfpc}
type
  generic tc<T> = class
    procedure p(data : T);
  end;

  tr = record
  end;

  tc1 = specialize tc<tr>;

procedure tc.p(data : T);
  begin
    readln(data);
    writeln(data);
  end;

begin
end.