{$mode objfpc}

type
  c = class(TObject)
    type
      a = longint;
  end;

begin
end.