pascalabcnet/TestSuite/generics17.pas

6 lines
90 B
ObjectPascal
Raw Normal View History

2018-03-25 19:55:26 +03:00
function f1<T>: T;begin end;
begin
var a: byte := f1&<byte>();
assert(a = 0);
end.