mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-06 17:47:50 +02:00
8166148a37
- deprecate -St compiler switch - remove $STATIC directive - unconditionally enable 'static' keyword usage - adopt tests, samplecfg, fpc.cft, error messages git-svn-id: trunk@14569 -
21 lines
337 B
ObjectPascal
21 lines
337 B
ObjectPascal
{ %FAIL }
|
|
{ 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.
|