mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 09:58:27 +02:00
23 lines
355 B
ObjectPascal
23 lines
355 B
ObjectPascal
{$mode fpc}
|
|
|
|
var
|
|
s : ansistring;
|
|
ss : shortstring;
|
|
as : ansistring;
|
|
c : char;
|
|
|
|
begin
|
|
as:='ansistring';
|
|
ss:='shortstring';
|
|
c:='C';
|
|
s:=s+as;
|
|
s:=s+c;
|
|
s:=s+ss;
|
|
s:=s+s;
|
|
if s<>'ansistringCshortstringansistringCshortstring' then
|
|
begin
|
|
writeln('Problem with ansistring appending');
|
|
halt(1);
|
|
end;
|
|
end.
|