+ test which already works

git-svn-id: trunk@7360 -

.gitattributes

@@ -8099,6 +8099,7 @@ tests/webtbs/tw6203.pp svneol=native#text/plain
 tests/webtbs/tw6435.pp svneol=native#text/plain
 tests/webtbs/tw6491.pp svneol=native#text/plain
 tests/webtbs/tw6493.pp svneol=native#text/plain
+tests/webtbs/tw6543.pp svneol=native#text/plain
 tests/webtbs/tw6624.pp svneol=native#text/plain
 tests/webtbs/tw6641.pp svneol=native#text/plain
 tests/webtbs/tw6684.pp svneol=native#text/plain

tests/webtbs/tw6543.pp

@@ -0,0 +1,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.