* using a nested function

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.