mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-13 10:59:29 +02:00
27 lines
361 B
ObjectPascal
27 lines
361 B
ObjectPascal
{ Source provided for Free Pascal Bug Report 3212 }
|
|
{ Submitted by "Marc Weustink" on 2004-07-15 }
|
|
{ e-mail: marc@freepascal.org }
|
|
program conststring;
|
|
|
|
{$mode objfpc}
|
|
{$H+}
|
|
|
|
const
|
|
C1: String = 'bla';
|
|
|
|
procedure X;
|
|
const
|
|
C: String = 'bla';
|
|
begin
|
|
C:='bla';
|
|
C:='bla'+C;
|
|
WriteLN('"',C,'"');
|
|
if C<>'blabla' then
|
|
halt(1);
|
|
end;
|
|
|
|
begin
|
|
X;
|
|
X;
|
|
end.
|