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

* extended test

Browse Source 
git-svn-id: trunk@32900 -
This commit is contained in:
Jonas Maebe 2016-01-10 14:01:32 +00:00
parent 508038a691
commit cc197a5593
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
tests/test/tnest1.pp
View File

@ -1,6 +1,6 @@
{$inline on}
procedure test(l1, l2: longint);
procedure test(l1, l2: longint; var l3: longint);
var
a1: cardinal;
@ -11,6 +11,7 @@ var
begin
l1:=1;
l2:=2;
l3:=5;
d1:=3.0;
d2:=4.0;
end;
@ -31,8 +32,13 @@ begin
halt(5);
if d2<>4.0 then
halt(6);
if l3<>5 then
halt(7);
end;
var
a3: longint;
begin
test(5,6);
a3:=1;
test(5,6,a3);
end.