+ old tests I forgot to commit

git-svn-id: trunk@21429 -

.gitattributes

@@ -11494,6 +11494,10 @@ tests/webtbf/tw0896.pp svneol=native#text/plain
 tests/webtbf/tw0896a.pp svneol=native#text/plain
 tests/webtbf/tw10081.pp svneol=native#text/plain
 tests/webtbf/tw10425a.pp svneol=native#text/plain
+tests/webtbf/tw10425b.pp svneol=native#text/plain
+tests/webtbf/tw10425c.pp svneol=native#text/plain
+tests/webtbf/tw10425d.pp svneol=native#text/plain
+tests/webtbf/tw10425e.pp svneol=native#text/plain
 tests/webtbf/tw10457.pp svneol=native#text/plain
 tests/webtbf/tw10833a.pp svneol=native#text/plain
 tests/webtbf/tw10849.pp svneol=native#text/plain

tests/webtbf/tw10425b.pp

@@ -0,0 +1,20 @@
+{ %fail }
+
+{$ifdef fpc}
+{$mode delphi}
+{$endif}
+
+unit tw10425b;
+
+interface
+
+function test: string[4];
+
+implementation
+
+
+function test: string[4];
+begin
+end;
+
+end.

tests/webtbf/tw10425c.pp

@@ -0,0 +1,20 @@
+{ %fail }
+
+{$ifdef fpc}
+{$mode delphi}
+{$endif}
+
+unit tw10425c;
+
+interface
+
+function test(p: string[4]): longint;
+
+implementation
+
+
+function test(p: string[4]): longint;
+begin
+end;
+
+end.

tests/webtbf/tw10425d.pp

@@ -0,0 +1,20 @@
+{ %fail }
+
+{$ifdef fpc}
+{$mode delphi}
+{$endif}
+
+unit tw10425d;
+
+interface
+
+function test(var f: file of byte): longint;
+
+implementation
+
+
+function test(var f: file of byte): longint;
+begin
+end;
+
+end.

tests/webtbf/tw10425e.pp

@@ -0,0 +1,20 @@
+{ %fail }
+
+{$ifdef fpc}
+{$mode delphi}
+{$endif}
+
+unit tw10425e;
+
+interface
+
+type
+  tc = class
+    s: string[4];
+    property test: string[4] read s write s;
+  end;
+
+implementation
+
+
+end.