freepascal.compiler/tests/webtbf/tw4569b.pp

{ %fail }

{ Source provided for Free Pascal Bug Report 4569 }
{ Submitted by "Vincent Snijders" on  2005-12-06 }
{ e-mail: [email protected] }
program fpcdos;

{$mode objfpc}

type
  TMyClassB = class;
  TMyClassC = class;

  TMyClassB = class(TMyClassC)
    procedure DoSomething; override;
  end;

  TMyClassC = class(TMyClassB)
    procedure DoSomething; override;
  end;

begin
end.