pascalabcnet/TestSuite/intellisense_tests/generics3.pas
Бондарев Иван 6aaff3680f bug fix #708
bug fix #704
2018-03-07 21:12:31 +01:00

5 lines
156 B
ObjectPascal

function f1<T1, T2, T3>(a: (T1, T2, T3)): (T1, T2, T3);begin end;
begin
var a{@var a: (byte,word,single);@} := f1((byte(0), word(0), single(0)));
end.