pascalabcnet/TestSuite/errors/err0375_generic_implicit_ptr.pas

15 lines
197 B
ObjectPascal
Raw Permalink Normal View History

2020-09-29 22:56:18 +03:00
type
t1 = class
static function operator implicit<T>(val: T): t1;
begin
Writeln('rec');
end;
2021-01-07 23:26:56 +03:00
2020-09-29 22:56:18 +03:00
end;
t2<T> = class end;
begin
var i := 5;
var a: t1 := @i;
end.