Explorar el Código

* procvar load with overloaded function

peter hace 23 años
padre
commit
5a1fadcef9
Se han modificado 1 ficheros con 15 adiciones y 0 borrados
  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.