fpcsrc/tests/webtbs/tw3423.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

{ Source provided for Free Pascal Bug Report 3423 }
{ Submitted by "Bram Kuijvenhoven" on  2004-12-02 }
{ e-mail: kuifware@hotmail.com }
{$MODE OBJFPC}{$H+}

var
  a:ansistring;
  s:shortstring;

begin

  a:='';
  s:='';
  a:=a+s;

end.