paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-06 17:08:01 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ new test (not yet fixed)

Browse Source 
git-svn-id: trunk@12050 -
This commit is contained in:
Jonas Maebe 2008-11-11 20:20:29 +00:00
parent 74efea399e
commit 53213844d8
2 changed files with 37 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -6579,6 +6579,7 @@ tests/tbf/tb0210.pp svneol=native#text/plain
tests/tbf/tb0211.pp svneol=native#text/plain
tests/tbf/tb0212.pp svneol=native#text/plain
tests/tbf/tb0213.pp svneol=native#text/plain
tests/tbf/tb0214.pp svneol=native#text/plain
tests/tbf/ub0115.pp svneol=native#text/plain
tests/tbf/ub0149.pp svneol=native#text/plain
tests/tbf/ub0158a.pp svneol=native#text/plain

36
tests/tbf/tb0214.pp Normal file
View File

@ -0,0 +1,36 @@
{ %fail }
{$ifdef fpc}
{$mode delphi}
{$endif}
type
tc = class
private
fo: tobject;
function getfo(i: integer): tobject;
procedure putfo(i: integer; o: tobject);
public
property o[i:integer]: tobject read getfo write putfo; default;
end;
function tc.getfo(i:integer): tobject;
begin
result:=fo;
end;
procedure tc.putfo(i: integer; o: tobject);
begin
fo:=o;
end;
var
c: tc;
begin
c:=tc.create;
{ should give an error stating that you cannot assign to left hand side }
{ (generated code also does not result in an assignment) }
tc(c[5]):=tc(5);
writeln(longint(c[5]));
end.