fpc/tests/webtbs/tw2305.pp

{ Source provided for Free Pascal Bug Report 2305 }
{ Submitted by "Sergey Kosarevsky" on  2003-01-03 }
{ e-mail: [email protected] }
Type tObject=Object
        Constructor Init;
     End;

Constructor tObject.Init;
Begin
End;

Begin
   WriteLn(Int64(@tObject.Init));
End.