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

* improved test

Browse Source 
git-svn-id: trunk@2550 -
This commit is contained in:
Jonas Maebe 2006-02-12 21:29:02 +00:00
parent a3a0cf098a
commit b160cf3540
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
tests/test/opt/treg4.pp
View File

@ -21,12 +21,18 @@ begin
halt(1); halt(1);
end; end;
procedure t2(out r: tr); procedure t2(out r: tr); inline;
begin begin
r.l := 7; r.l := 7;
r.b2 := 31; r.b2 := 31;
end; end;
procedure t3(out r: tr);
begin
t2(r);
end;
var var
r: tr; r: tr;
begin begin
@ -35,4 +41,8 @@ begin
if ((r.l and 255) <> 7) or if ((r.l and 255) <> 7) or
(r.b2 <> 31) then (r.b2 <> 31) then
halt(1); halt(1);
t3(r);
if (r.b3 <> 6) or
((r.l and 255) <> 5) then
halt(1);
end. end.