mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-14 09:39:33 +02:00
32 lines
673 B
ObjectPascal
32 lines
673 B
ObjectPascal
{ Source provided for Free Pascal Bug Report 2250 }
|
|
{ Submitted by "Konstantin Seiler" on 2002-12-04 }
|
|
{ e-mail: list@kseiler.de }
|
|
procedure stringbug;
|
|
var env:ansistring;
|
|
procedure addenv(s:ansistring);
|
|
begin
|
|
// Uncomment next line and everything works as espected.
|
|
//writeln(length(env));
|
|
if length(env)=0 then env:=s
|
|
else env:=env+'|'+s;
|
|
end;
|
|
|
|
begin
|
|
env:='';
|
|
addenv('first');
|
|
addenv('second');
|
|
addenv('third');
|
|
// It schould write "first|second|third",
|
|
// but only writes "third".
|
|
writeln(env);
|
|
if env<>'first|second|third' then
|
|
begin
|
|
writeln('ERROR!');
|
|
halt(1);
|
|
end;
|
|
end;
|
|
|
|
begin
|
|
stringbug;
|
|
end.
|