summaryrefslogtreecommitdiff
path: root/fpcsrc/tests/test/tgeneric35.pp
blob: 9dd54a59e0dd7405e14e4d49d93805c613ee4269 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
program tgeneric35;

{$mode delphi}

type
  TSomeRecord = record
    F: Integer;
  end;

  TSomeRecord<TData> = record
    data: TData;
  end;
var
  R1: TSomeRecord;
  R2: TSomeRecord<Integer>;
begin
  R1.F := 2;
  R2.data := 1;
end.