fpc/tests/webtbs/tw2259.pp

{ Source provided for Free Pascal Bug Report 2259 }
{ Submitted by "Sergey Kosarevsky" on  2002-12-14 }
{ e-mail: [email protected] }
{$STATIC ON}

Type tObject=Object
        ClassFlags:Longint;Static;
     End;

Begin
   tObject.ClassFlags:=255;
End.