mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 20:08:12 +02:00
19 lines
330 B
ObjectPascal
19 lines
330 B
ObjectPascal
{ %FAIL}
|
|
program tclass14a;
|
|
|
|
{$ifdef fpc}
|
|
{$mode delphi}
|
|
{$endif}
|
|
|
|
type
|
|
TSomeClass = class
|
|
public
|
|
class var
|
|
FSomeField: Integer;
|
|
// class properties are not for sreaming therefore 'stored' is not supported
|
|
class property SomeField: Integer read FSomeField write FSomeField stored False;
|
|
end;
|
|
|
|
begin
|
|
end.
|