diff --git a/.gitattributes b/.gitattributes
index 53aff84bec..f6faea7cd5 100644
--- a/.gitattributes
+++ b/.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
diff --git a/tests/webtbf/tw10425b.pp b/tests/webtbf/tw10425b.pp
new file mode 100644
index 0000000000..7d0f1367f4
--- /dev/null
+++ b/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.
diff --git a/tests/webtbf/tw10425c.pp b/tests/webtbf/tw10425c.pp
new file mode 100644
index 0000000000..205d375f8b
--- /dev/null
+++ b/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.
diff --git a/tests/webtbf/tw10425d.pp b/tests/webtbf/tw10425d.pp
new file mode 100644
index 0000000000..8fc62c2945
--- /dev/null
+++ b/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.
diff --git a/tests/webtbf/tw10425e.pp b/tests/webtbf/tw10425e.pp
new file mode 100644
index 0000000000..c946051e73
--- /dev/null
+++ b/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.