administrator/pascalabcnet
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

test for #2644

Browse source
This commit is contained in:
Ivan Bondarev 2022-04-03 14:08:36 +02:00
parent 416172164d
commit 43f21dc033
1 changed files with 12 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
TestSuite/generics62.pas Normal file
View file

@ -0,0 +1,12 @@
var i: integer;
procedure p1<T1>(d: T1->()) := exit;
procedure p1<T1,T2>(d: T1->T2);
begin
i := 1;
end;
function f(b: byte) := 0;
begin
p1(f);
assert(i = 1);
end.