paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-11 12:25:59 +02:00
Code Issues Packages Projects Releases Wiki Activity

* added

Browse Source
This commit is contained in:
peter 2001-01-13 11:14:16 +00:00
parent 3baf37cbd1
commit a1f1b9c441
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
tests/webtbs/tw1351.pp Normal file
View File

@ -0,0 +1,10 @@
procedure Test(ParArr :array of const);
begin
writeln(ParArr[0].vtype,' ',vtObject,' ',vtclass);
if ParArr[0].vtype<>vtObject then
halt(1);
end;
begin
Test([TObject.Create]);
end.