freepascal.compiler/tests/tbf/tb0189.pp

{ %fail }
{$mode objfpc}

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

begin
end.