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

tests: forgotten test

Browse Source 
git-svn-id: trunk@19401 -
This commit is contained in:
paul 2011-10-07 06:00:15 +00:00
parent ceb141523d
commit 99621cc290
2 changed files with 38 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -11902,6 +11902,7 @@ tests/webtbs/tw2031.pp svneol=native#text/plain
tests/webtbs/tw2037.pp svneol=native#text/plain
tests/webtbs/tw2040.pp svneol=native#text/plain
tests/webtbs/tw2041.pp svneol=native#text/plain
tests/webtbs/tw20421.pp svneol=native#text/pascal
tests/webtbs/tw2045.pp svneol=native#text/plain
tests/webtbs/tw2046a.pp svneol=native#text/plain
tests/webtbs/tw2059.pp svneol=native#text/plain

37
tests/webtbs/tw20421.pp Normal file
View File

@ -0,0 +1,37 @@
{ %norun}
program tw20421;
{$mode delphi}
type
TAncestor = class
private
function GetTest(index: integer): integer;
public
property test[index: integer]: integer read GetTest;
end;
TDescendant = class(TAncestor)
private
procedure SetTest(index, value: integer);
public
property test write SetTest;
end;
{ TAncestor }
function TAncestor.GetTest(index: integer): integer;
begin
end;
{ TDescendant }
procedure TDescendant.SetTest(index, value: integer);
begin
end;
begin
end.