paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 13:09:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ test which already works

Browse Source 
git-svn-id: trunk@7360 -
This commit is contained in:
Jonas Maebe 2007-05-16 14:44:38 +00:00
parent 6555f37cff
commit f4b2ee2904
2 changed files with 21 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -8099,6 +8099,7 @@ tests/webtbs/tw6203.pp svneol=native#text/plain
tests/webtbs/tw6435.pp svneol=native#text/plain tests/webtbs/tw6435.pp svneol=native#text/plain
tests/webtbs/tw6491.pp svneol=native#text/plain tests/webtbs/tw6491.pp svneol=native#text/plain
tests/webtbs/tw6493.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/tw6624.pp svneol=native#text/plain
tests/webtbs/tw6641.pp svneol=native#text/plain tests/webtbs/tw6641.pp svneol=native#text/plain
tests/webtbs/tw6684.pp svneol=native#text/plain tests/webtbs/tw6684.pp svneol=native#text/plain

20
tests/webtbs/tw6543.pp Normal file
View File

@ -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.