paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-05 11:47:17 +01:00
Code Issues Packages Projects Releases Wiki Activity

no message

Browse Source
This commit is contained in:
florian 2005-02-26 10:20:39 +00:00
parent 9d5509f3f9
commit c55870ebb5
1 changed files with 16 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
tests/webtbs/tw3697.pp Normal file
View File

@ -0,0 +1,16 @@
{ Source provided for Free Pascal Bug Report 3697 }
{ Submitted by "Matthias Hryniszak" on 2005-02-26 }
{ e-mail: matthias@hryniszak.de }
uses
SysUtils;
var
S: WideString;
begin
S := WideFormat('Test %s', ['string']);
if s<>'Test string' then
halt(1);
writeln('ok');
end.