mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-08 12:48:16 +02:00
16 lines
187 B
ObjectPascal
16 lines
187 B
ObjectPascal
{ %FAIL }
|
|
|
|
{$MODE DELPHI}
|
|
|
|
type
|
|
TFoo = class
|
|
class procedure F(V: byte); virtual;
|
|
class property P: byte write F;
|
|
end;
|
|
|
|
class procedure TFoo.F(V: byte);
|
|
begin
|
|
end;
|
|
|
|
begin
|
|
end. |