mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-28 19:13:52 +02:00
21 lines
342 B
ObjectPascal
21 lines
342 B
ObjectPascal
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.
|