@@ -0,0 +1,15 @@
+{$mode delphi}
+
+procedure p1(s:string);overload;
+begin
+end;
+procedure p1(l:longint);overload;
+var
+ pv : procedure(l:longint);
+ pv:=p1;
+end.