* new files

tests/tbf/tb0099.pp

@@ -0,0 +1,11 @@
+procedure p(a:array of char);
+begin
+end;
+
+var
+  s1 : ansistring;
+  s2 : shortstring;
+begin
+  p(s1);
+  p(s2);
+end.

tests/webtbf/tw1316.pp

@@ -0,0 +1,17 @@
+unit tw1316;
+interface
+
+type
+  searchrec=record
+    l : longint;
+  end;
+
+operator [] (a,b:searchrec) r:boolean;
+
+implementation
+
+operator [] (a,b:searchrec) r:boolean;
+begin
+end;
+
+end.

tests/webtbs/tw1318.pp

@@ -0,0 +1,18 @@
+{ %VERSION=1.1 }
+
+{$mode objfpc}
+type
+  TBadObject = class
+    a: array[0..0] of char;
+  public
+    property a0: char read a[0];
+  end;
+
+var
+  BadObject: TBadObject;
+begin
+  BadObject := TBadObject.Create;
+  BadObject.a[0] := 'a';
+  if BadObject.a0 = BadObject.a[0] then;
+  BadObject.Free;
+end.