12 lines
239 B
ObjectPascal
12 lines
239 B
ObjectPascal
|
type
|
|||
|
|
t0 = class
|
|||
|
|
public constructor := exit;
|
|||
|
|
public constructor(x: byte) := exit;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
t1 = partial class(t0) end;
|
|||
|
|
t1 = partial class(t0) end;
|
|||
|
|
|
|||
|
|
begin
|
|||
|
|
Assert( 2 = typeof(t1).GetConstructors.Length );
|
|||
|
|
end.
|