From c55870ebb53da91c242a0685cebc5fdde02ec0a8 Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Sat, 26 Feb 2005 10:20:39 +0000
Subject: [PATCH] no message

---
 tests/webtbs/tw3697.pp | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)
 create mode 100644 tests/webtbs/tw3697.pp

diff --git a/tests/webtbs/tw3697.pp b/tests/webtbs/tw3697.pp
new file mode 100644
index 0000000000..179c0a3405
--- /dev/null
+++ b/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: matthias@hryniszak.de }
+uses
+  SysUtils;
+
+var
+  S: WideString;
+
+begin
+  S := WideFormat('Test %s', ['string']);
+  if s<>'Test string' then
+    halt(1);
+  
+  writeln('ok');
+end.
\ No newline at end of file