{ %fail }

{ Source provided for Free Pascal Bug Report 4764 }
{ Submitted by "Ales Katona" on  2006-02-03 }
{ e-mail: almindor@gmail.com }
unit example;

{$mode objfpc}{$H+}

interface

type
  TLBaseSocket = class(TLHandle)
  end;

implementation

end.