mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 08:18:12 +02:00
362ff5ad01
{$modeswitch properties-} also affects global properties
(mantis #25861)
git-svn-id: trunk@27758 -
9 lines
181 B
ObjectPascal
9 lines
181 B
ObjectPascal
{ %fail }
|
|
|
|
{$MODE OBJFPC} {$MODESWITCH PROPERTIES-}
|
|
program test;
|
|
function GetBar(): Cardinal; begin Result := 0; end;
|
|
property Bar: Cardinal read GetBar;
|
|
begin Writeln(Bar); end.
|
|
|