initial import

git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@1 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 22 insertions, 0 deletions

diff --git a/tests/webtbs/tw3523.pp b/tests/webtbs/tw3523.pp
new file mode 100644
index 0000000000..3aa1076610
--- /dev/null
+++ b/tests/webtbs/tw3523.pp
@@ -0,0 +1,22 @@
+procedure ttt(i1:integer;s1:string[255];b1:byte;i2:integer;
+  i3:integer;i4:integer;c1:char;s2,s3,s4,s5:string[255]);
+
+begin
+     if (i1 <> 1) or
+        (s1 <> 'test1') or
+        (b1 <> 1) or
+        (i2 <> 2) or
+        (i3 <> 3) or
+        (i4 <> 4) or
+        (c1 <> 'A') or
+        (s2 <> 'test2') or
+        (s3 <> 'test3') or
+        (s4 <> 'test4') or
+        (s5 <> 'test5') then
+      halt(1);
+end;
+
+begin
+ttt(1,'test1',1,2,3,4,'A','test2','test3','test4','test5');
+end.
+