* procvar load with overloaded function

2025-04-22 22:49:37 +02:00 · 2003-01-12 16:22:45 +00:00 · 2003-01-12 16:22:45 +00:00 · 5a1fadcef9
commit 5a1fadcef9
parent 71e2d34b5a
1 changed files with 15 additions and 0 deletions
--- a/tests/tbs/tb0448.pp
+++ b/tests/tbs/tb0448.pp
@ -0,0 +1,15 @@
+{$mode delphi}
+
+procedure p1(s:string);overload;
+begin
+end;
+
+procedure p1(l:longint);overload;
+begin
+end;
+
+var
+  pv : procedure(l:longint);
+begin
+  pv:=p1;
+end.