Browse Source

* procvar load with overloaded function

peter 22 years ago
parent
commit
5a1fadcef9
1 changed files with 15 additions and 0 deletions
  1. 15 0
      tests/tbs/tb0448.pp

+ 15 - 0
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.