9 lines
120 B
ObjectPascal
9 lines
120 B
ObjectPascal
uses u_generics11;
|
|
|
|
var a: t1<integer>;
|
|
|
|
begin
|
|
a := new t1<integer>;
|
|
assert(not (a = a));
|
|
assert(a <> a);
|
|
end. |