summaryrefslogtreecommitdiff
path: root/fpcsrc/tests/webtbs/tw4566.pp
blob: 942b3c86bc429cc278d8d145a794d8297bf7947d (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
{ Source provided for Free Pascal Bug Report 4566 }
{ Submitted by "Vincent Snijders" on  2005-12-04 }
{ e-mail: vsnijders@quicknet.nl }
program bug4566;

{$mode objfpc}{$H+}

var
  s: string;

begin
  //accidently use #1310 instead of #13#10
  s := 'Message Text' + #1310 + #1310 + 'More Text';
end.