tests/test/terecs12b.pp


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

{ %FAIL }
{ %NORUN }
program terecs12b;

{$ifdef fpc}
  {$mode delphi}
{$endif}

procedure Test;
type
  TRecord = record
  var
    TestField: Integer;
    property TestProperty: Integer read TestField;
  end;
begin
end;

begin
end.