浏览代码

* procvar load with overloaded function

peter 22 年之前
父节点
当前提交
5a1fadcef9
共有 1 个文件被更改,包括 15 次插入0 次删除
  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.