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

test for #2899

Browse source
This commit is contained in:
Ivan Bondarev 2023-07-02 14:02:57 +02:00
parent 0d85e872d3
commit 2aefe23781
1 changed files with 16 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
TestSuite/lambdas18.pas Normal file
View file

@ -0,0 +1,16 @@
var i: integer;
procedure p0<T>(p: T->());
begin
p(default(T));
end;
procedure p1(v: byte);
begin
i := 1;
end;
procedure p1(a,b,c: word) := exit;
begin
p0(p1);
assert(i = 1);
end.