* inline test with ppu load

2025-04-20 16:09:31 +02:00 · 2003-11-07 17:25:47 +00:00 · 2003-11-07 17:25:47 +00:00 · 795b479d7b
commit 795b479d7b
parent bbf7300a0c
2 changed files with 29 additions and 0 deletions
--- a/tests/tbs/tb0461.pp
+++ b/tests/tbs/tb0461.pp
@ -0,0 +1,14 @@
+{ %version=1.1 }
+{ %recompile }
+
+uses ub0461;
+
+procedure p;
+begin
+  p1;
+end;
+
+begin
+  p;
+end.
+
--- a/tests/tbs/ub0461.pp
+++ b/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.
+