mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-10 09:46:30 +02:00
tests: add fail test for class properties
git-svn-id: trunk@14639 -
This commit is contained in:
parent
56259a084c
commit
09fd52791a
1
.gitattributes
vendored
1
.gitattributes
vendored
@ -8899,6 +8899,7 @@ tests/test/tclass12a.pp svneol=native#text/pascal
|
|||||||
tests/test/tclass12b.pp svneol=native#text/pascal
|
tests/test/tclass12b.pp svneol=native#text/pascal
|
||||||
tests/test/tclass12c.pp svneol=native#text/pascal
|
tests/test/tclass12c.pp svneol=native#text/pascal
|
||||||
tests/test/tclass13.pp svneol=native#text/pascal
|
tests/test/tclass13.pp svneol=native#text/pascal
|
||||||
|
tests/test/tclass14a.pp svneol=native#text/pascal
|
||||||
tests/test/tclass2.pp svneol=native#text/plain
|
tests/test/tclass2.pp svneol=native#text/plain
|
||||||
tests/test/tclass3.pp svneol=native#text/plain
|
tests/test/tclass3.pp svneol=native#text/plain
|
||||||
tests/test/tclass4.pp svneol=native#text/plain
|
tests/test/tclass4.pp svneol=native#text/plain
|
||||||
|
18
tests/test/tclass14a.pp
Normal file
18
tests/test/tclass14a.pp
Normal file
@ -0,0 +1,18 @@
|
|||||||
|
{ %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.
|
Loading…
Reference in New Issue
Block a user