{ %fail }

program fjf775a;

type
  a = object
    f: Integer
  end;

  b = object (a)
    procedure p;
  end;

procedure b.p;
begin
  WriteLn (inherited f)  { WRONG }
end;

begin
end.