{ Source provided for Free Pascal Bug Report 2186 }
{ Submitted by "Andrew Johnson" on  2002-10-16 }
{ e-mail: AJ_Genoius@Hotmail.com }
Program TypeBug;

{$Mode ObjFPC}
Uses Classes;

Type
  NewInt = type longint;

  TSomeClass = Class(TComponent)
  end;

begin

end.