fpcsrc/tests/webtbs/tw6543.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

{$ifdef fpc}
{$mode objfpc}
{$endif}

program p;

type
  c = class
    a: array[boolean] of byte;
    property f: byte read a[false] write a[false];
  end;

var
  o: c;
begin
  o := c.Create;
  o.f := 1;
  if (o.a[false] <> 1) then
    halt(1);
end.