mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-11 14:23:25 +02:00
23 lines
225 B
ObjectPascal
23 lines
225 B
ObjectPascal
{ %fail }
|
|
|
|
{$mode delphi}
|
|
|
|
type
|
|
tcl1=class
|
|
end;
|
|
|
|
tcl2=class(tcl1)
|
|
end;
|
|
|
|
procedure p1(var p:tcl1);
|
|
begin
|
|
end;
|
|
|
|
var
|
|
t : tcl2;
|
|
begin
|
|
t:=tcl2.create;
|
|
{ in delphi the passed argument must match exact }
|
|
p1(t);
|
|
end.
|