* inline test with ppu load

tests/tbs/tb0461.pp

@@ -0,0 +1,14 @@
+{ %version=1.1 }
+{ %recompile }
+
+uses ub0461;
+
+procedure p;
+begin
+  p1;
+end;
+
+begin
+  p;
+end.
+

tests/tbs/ub0461.pp

@@ -0,0 +1,15 @@
+unit ub0461;
+{$inline on}
+interface
+procedure p1;inline;
+implementation
+procedure p1;inline;
+var
+  i,k : longint;
+begin
+  i:=20;
+  k:=i*10;
+  writeln('hello ',k);
+end;
+end.
+