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

* fixed test

Browse Source
This commit is contained in:
florian 2004-02-20 20:56:28 +00:00
parent 852b31002d
commit d668c06dc9
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
tests/tbs/tb0470.pp
View File

@ -4,7 +4,7 @@ procedure proc1(p1,p2,p3,p4,p5,p6,p7,p8,p9,p10,p11,p12,p13,p14,p15,p16,p17,p18,p
procedure proc2; procedure proc2;
var var
l : longint; l : dword;
begin begin
l:=$deadbeef; l:=$deadbeef;
proc1(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20); proc1(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20);