pascalabcnet/TestSuite/intellisense_tests/generics12.pas

6 lines
113 B
ObjectPascal
Raw Permalink Normal View History

2018-08-09 15:14:35 +03:00
function f1<T>(a: T) := new T[0];
begin
var o{@var o: array of array of byte;@} := f1(f1(byte(0)));
end.