From f4b2ee2904bff6ede0eee6ff82b6b8daa01385cd Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Wed, 16 May 2007 14:44:38 +0000
Subject: [PATCH] + test which already works
git-svn-id: trunk@7360 -
---
.gitattributes | 1 +
tests/webtbs/tw6543.pp | 20 ++++++++++++++++++++
2 files changed, 21 insertions(+)
create mode 100644 tests/webtbs/tw6543.pp
diff --git a/.gitattributes b/.gitattributes
index c4ceaad2de..5c5387db5a 100644
--- a/.gitattributes
+++ b/.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
diff --git a/tests/webtbs/tw6543.pp b/tests/webtbs/tw6543.pp
new file mode 100644
index 0000000000..8089673bdc
--- /dev/null
+++ b/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.