mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-16 12:59:24 +02:00
d24f4b0926
U compiler/blockutl.pas U compiler/jvm/njvmutil.pas U compiler/jvm/pjvm.pas U compiler/ncal.pas U compiler/ninl.pas U compiler/pdecl.pas U compiler/pdecsub.pas U compiler/pdecvar.pas U compiler/pexpr.pas U compiler/pgenutil.pas U compiler/pmodules.pas U compiler/pparautl.pas U compiler/pstatmnt.pas U compiler/psub.pas U compiler/psystem.pas U compiler/ptype.pas U compiler/symcreat.pas U compiler/symdef.pas U compiler/symsym.pas U compiler/symutil.pas --- Recording mergeinfo for merge of r42998 into '.': U . --- Merging r43116 into '.': G compiler/symsym.pas A tests/webtbf/tw36114.pp --- Recording mergeinfo for merge of r43116 into '.': G . # revisions: 42998,43116 git-svn-id: branches/fixes_3_2@43442 -
23 lines
383 B
ObjectPascal
23 lines
383 B
ObjectPascal
{ %FAIL }
|
|
|
|
program tw36114;
|
|
|
|
{$mode objfpc}{$H+}{$J-}
|
|
type
|
|
TTestme=class
|
|
strict private
|
|
const
|
|
{$push}{$writeableconst off} // superfluous but also doesn't work
|
|
c_one:integer = 1;
|
|
c_two:integer = 10;
|
|
{$pop}
|
|
public
|
|
class property one:integer read c_one;
|
|
class property two:integer read c_two;
|
|
end;
|
|
|
|
begin
|
|
TTestme.c_one := 1000;
|
|
writeln(TTestme.One);
|
|
end.
|