pascalabcnet/TestSuite/intellisense_tests/generics5.pas
Бондарев Иван 9ec5782f4c bug fix #765
2018-04-12 20:41:19 +02:00

11 lines
226 B
ObjectPascal

function f1<T>(self: sequence of T): (sequence of byte, sequence of word);
begin
Result := (
Seq(byte(0)),
Seq(word(0))
);
end;
begin
var a{@var a: (IEnumerable<byte>,IEnumerable<word>);@} := f1(Seq(0));
end.