From 44334710e65fec76cbd4aefef6fdb34852da39e3 Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Mon, 10 Nov 2003 19:44:10 +0000
Subject: [PATCH]   * using a nested function

---
 tests/tbs/ub0461.pp | 14 +++++++++++---
 1 file changed, 11 insertions(+), 3 deletions(-)

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.