From 32b66da46519254f2053f12e55aa69e5427e5eca Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Fri, 20 Feb 2004 20:01:30 +0000
Subject: [PATCH]   * overload with procvar and result of procvar function

---
 tests/tbs/tb0471.pp | 30 ++++++++++++++++++++++++++++++
 1 file changed, 30 insertions(+)
 create mode 100644 tests/tbs/tb0471.pp

diff --git a/tests/tbs/tb0471.pp b/tests/tbs/tb0471.pp
new file mode 100644
index 0000000000..e05f90e952
--- /dev/null
+++ b/tests/tbs/tb0471.pp
@@ -0,0 +1,30 @@
+const
+  err : boolean = true;
+  
+type
+  tf = function:longint;
+procedure p1(l:longint);overload;
+begin
+  writeln('longint');
+end;
+
+  
+procedure p1(f:tf);overload;
+begin
+  writeln('procvar');
+  err:=false;
+end;
+
+function vf:longint;
+begin
+  vf:=10;
+end;
+  
+var
+  v : tf;
+begin
+  v:=vf;
+  p1(v);
+  if err then
+    halt(1);
+end.