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

* part of r13334, forgot to commit

Browse Source 
git-svn-id: trunk@13343 -
This commit is contained in:
Jonas Maebe 2009-06-28 07:44:02 +00:00
parent 60169d34dc
commit ae476a9b6a
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
tests/webtbs/tw3971.pp
View File

@ -18,15 +18,15 @@ type
end;
TDemo = object
constructor init;
destructor Destroy;
procedure doSomething;
procedure doSomething2;
member1 : byte;
member5 : longint;
member6 : int64;
y : array[0..2] of TDemo1;
constructor init;
destructor Destroy;
procedure doSomething;
procedure doSomething2;
end;
var
x : array[0..2] of TDemo;