mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-12 17:29:37 +02:00
15 lines
141 B
ObjectPascal
15 lines
141 B
ObjectPascal
{ %fail }
|
|
{$mode fpc}
|
|
|
|
function GetROVar:longint;
|
|
begin
|
|
GetROVar:=3;
|
|
end;
|
|
|
|
property
|
|
ROVar:longint read GetROVar;
|
|
|
|
begin
|
|
ROVar:=1;
|
|
end.
|