mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-11-02 12:19:28 +01:00
22 lines
350 B
ObjectPascal
22 lines
350 B
ObjectPascal
{ %FAIL }
|
|
{ %OPT=-St }
|
|
{ Source provided for Free Pascal Bug Report 2359 }
|
|
{ Submitted by "Sergey Kosarevsky" on 2003-02-06 }
|
|
{ e-mail: netsurfer@au.ru }
|
|
|
|
{$mode objfpc}
|
|
|
|
Type tObj=Class
|
|
ClassFlags:Longint;Static;
|
|
Class Constructor Init;
|
|
End;
|
|
|
|
Class Constructor tObj.Init;
|
|
Begin
|
|
ClassFlags:=0;
|
|
End;
|
|
|
|
Begin
|
|
tObj.Init;
|
|
End.
|