fpcsrc/tests/test/tprop2.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14

{ %fail }
{$mode fpc}

function GetROVar:longint;
begin
  GetROVar:=3;
end;

property
  ROVar:longint read GetROVar;

begin
  ROVar:=1;
end.