[fpc-pascal] bug or feature?

[Mattias Gaertner]

Hi,

This can't be right, can it?

type
  TBird = class
    procedure Fly;
  end;
  TEagle = TBird; // alias

procedure TEagle.Fly;
begin
end;

Mattias