mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-16 15:59:30 +02:00
*** empty log message ***
This commit is contained in:
parent
33e7e22e1a
commit
cbfcfd4435
18
bugs/bug0212.pp
Normal file
18
bugs/bug0212.pp
Normal file
@ -0,0 +1,18 @@
|
||||
program proptest;
|
||||
|
||||
type
|
||||
TMyRec = record
|
||||
Int: Integer;
|
||||
Str: String;
|
||||
end;
|
||||
|
||||
TMyClass = class
|
||||
private
|
||||
FMyRec: TMyRec;
|
||||
public
|
||||
property AnInt: Integer read FMyRec.Int;
|
||||
property AStr: String read FMyRec.Str;
|
||||
end;
|
||||
|
||||
begin
|
||||
end.
|
@ -284,3 +284,4 @@ bug0201.pp problem with record var-parameters and assembler
|
||||
bug0202.pp flag results not supported with case
|
||||
bug0206.pp sets with variable ranges doesn't work
|
||||
bug0211.pp a and not a is true !!! (if a:=boolean(5))
|
||||
bug0212.pp problem with properties
|
||||
|
Loading…
Reference in New Issue
Block a user