* improved test

git-svn-id: trunk@2550 -

tests/test/opt/treg4.pp

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