Compiler 3.3.1 goes into Endless-loop, until mem exhaustion / Never finishes compilation.

Just compile the following. ;)

program Project1;
{$mode objfpc}{$H+}{$Interfaces CORBA}

type
  ITest = interface
  end;

  TFoo = class(TObject, ITest)
    Fa: TFoo;
    property a: TFoo read Fa implements ITest;
  end;

var
  f: TFoo;
  i: ITest;
begin
  f:=TFoo.Create;
  i := f;
end.