fpc/tests/webtbs/tw2305.pp
2003-01-03 16:26:00 +00:00

15 lines
272 B
ObjectPascal

{ Source provided for Free Pascal Bug Report 2305 }
{ Submitted by "Sergey Kosarevsky" on 2003-01-03 }
{ e-mail: netsurfer@au.ru }
Type tObject=Object
Constructor Init;
End;
Constructor tObject.Init;
Begin
End;
Begin
WriteLn(Int64(@tObject.Init));
End.