mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-06 17:47:50 +02:00
28 lines
378 B
ObjectPascal
28 lines
378 B
ObjectPascal
{ Source provided for Free Pascal Bug Report 2706 }
|
|
{ Submitted by "Johannes Berg" on 2003-10-01 }
|
|
{ e-mail: johannes -at- sipsolutions -dot- de }
|
|
program j;
|
|
|
|
{$mode delphi}
|
|
|
|
uses
|
|
uw2706b, uw2706a;
|
|
|
|
type
|
|
TClassB = class(TClassA)
|
|
end;
|
|
TClassC = class
|
|
FB: TClassB;
|
|
procedure Test;
|
|
end;
|
|
|
|
procedure TClassC.Test;
|
|
var
|
|
LX: TX;
|
|
begin
|
|
FB.CT(LX);
|
|
end;
|
|
|
|
begin
|
|
end.
|