diff --git a/tests/tbs/ub0461.pp b/tests/tbs/ub0461.pp
index 4a876b1f09..e331115bf4 100644
--- a/tests/tbs/ub0461.pp
+++ b/tests/tbs/ub0461.pp
@@ -3,13 +3,21 @@ unit ub0461;
 interface
 procedure p1;inline;
 implementation
+
 procedure p1;inline;
 var
   i,k : longint;
+
+  procedure f;
+  begin
+    i:=20;
+    k:=i*10;
+    writeln('hello ',k);
+  end;
+
 begin
-  i:=20;
-  k:=i*10;
-  writeln('hello ',k);
+  f;
 end;
+
 end.