Reproducable pascal bug: GH1781

Hi,

in BCB 3.0 (3.70) the following will produce

  [PascalFatal Error] Test2.pas(22): Internal error: GH1761.

Steps:

- Start BCB 3.0
- File | New Application
- Add the two units below to the project
- Make

--> Internal error.

I am using BCB 3.0 as shipped (no defaults have been changed since I
installed it 6 hours ago).

Work around:

  Unknown - anybody taking the challenge?

  I am _desperately_ looking for a work around

  ( no I cannot have test2 in test1, because that
    would exceed TD32 max line count which is at 32767 )

Is anybody able to confirm this?

Stefan

********************************************
unit test2;

interface

uses
  Test1;

type
  TTest2 = class(TTypedTest1)
  published
    property p: integer read Get_p write Set_p;
  end;

implementation

end.

   <--- Internal error GH1781

******************************************
unit test1;

interface

type
  TTest1 = class(TObject)
  protected
    function Get_p: integer; virtual;
    procedure Set_p(Value: integer); virtual;
  end;

  TTypedTest1 = TTest1;

implementation

uses
  Test2;

// this does not matter - just useless stubs
function TTest1.Get_p: integer;
begin Result := 0; end;
procedure TTest1.Set_p(Value: integer);
begin end;

end.