* extend test a little bit to ensure that nested Concat() calls for strings work correctly

git-svn-id: trunk@37724 -

tests/tbs/tb0634.pp

@@ -16,5 +16,8 @@ begin
   s := Concat(s1, ' ', s2, ' ', s3, ' ', s4);
   if s <> 'Hello Free Pascal World' then
     Halt(3);
+  s := Concat(Concat(s1, ' ', s2), ' ', Concat(s3, ' ', s4));
+  if s <> 'Hello Free Pascal World' then
+    Halt(4);
   Writeln('ok');
 end.