mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-18 05:00:07 +02:00
* initial revision
git-svn-id: trunk@1877 -
This commit is contained in:
parent
0907a1ef80
commit
3a81473a05
1
.gitattributes
vendored
1
.gitattributes
vendored
@ -6389,6 +6389,7 @@ tests/webtbs/tw4520.pp -text svneol=unset#text/plain
|
||||
tests/webtbs/tw4529.pp -text svneol=unset#text/plain
|
||||
tests/webtbs/tw4537.pp svneol=native#text/plain
|
||||
tests/webtbs/tw4540.pp -text svneol=unset#text/plain
|
||||
tests/webtbs/tw4566.pp -text svneol=unset#text/plain
|
||||
tests/webtbs/ub1873.pp svneol=native#text/plain
|
||||
tests/webtbs/ub1883.pp svneol=native#text/plain
|
||||
tests/webtbs/uw0555.pp svneol=native#text/plain
|
||||
|
15
tests/webtbs/tw4566.pp
Normal file
15
tests/webtbs/tw4566.pp
Normal file
@ -0,0 +1,15 @@
|
||||
{ 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.
|
||||
|
Loading…
Reference in New Issue
Block a user