* new bugs

tests/webtbs/tw2270.pp

@@ -1,6 +1,10 @@
 { Source provided for Free Pascal Bug Report 2270 }
 { Submitted by "marco" on  2002-12-19 }
 { e-mail: [email protected] }
+
+{ This should work only for TP7 }
+{$mode tp}
+
 type zheenum = (aa,bb,cc);
      zheset  = set of zheenum;
 

tests/webtbs/tw2291.pp

@@ -0,0 +1,14 @@
+{$mode delphi}
+
+procedure error1(a, b: array of string);
+begin
+end;
+
+procedure error2(a, b: array of byte);
+begin
+end;
+
+begin
+ error1(['abc'], ['xyz']);
+ error2([1,2,3,4], [2,1,0]);
+end.

tests/webtbs/tw2294.pp

@@ -0,0 +1,9 @@
+{$H+}
+const trap : pchar = 'boese Falle';
+var  s : ansistring;
+begin
+   s:='Dies ist eine ';
+   s:=s+'boese Falle';  { see .Ll4: }
+   s:=s+'.';            { see .Ll5: }
+   writeln(s);
+end.