no message

tests/webtbs/tw3697.pp

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