diff --git a/.gitattributes b/.gitattributes
index b0a2555c67..7761b69595 100644
--- a/.gitattributes
+++ b/.gitattributes
@@ -6786,6 +6786,8 @@ tests/webtbs/tw4902.pp -text
 tests/webtbs/tw4922.pp svneol=native#text/plain
 tests/webtbs/tw4950.pp svneol=native#text/plain
 tests/webtbs/tw4999.pp svneol=native#text/plain
+tests/webtbs/tw5001.pp svneol=native#text/plain
+tests/webtbs/tw5023.pp svneol=native#text/plain
 tests/webtbs/ub1873.pp svneol=native#text/plain
 tests/webtbs/ub1883.pp svneol=native#text/plain
 tests/webtbs/uw0555.pp svneol=native#text/plain
diff --git a/tests/webtbs/tw5001.pp b/tests/webtbs/tw5001.pp
new file mode 100644
index 0000000000..84fd6fa055
--- /dev/null
+++ b/tests/webtbs/tw5001.pp
@@ -0,0 +1,18 @@
+{ Source provided for Free Pascal Bug Report 5001 }
+{ Submitted by "Vincent Snijders" on  2006-04-09 }
+{ e-mail: vsnijders@quicknet.nl }
+program Project1;
+
+{$mode objfpc}{$H+}
+
+resourcestring
+  s = 'test';
+
+begin
+  writeln(s);
+  readln;
+  if length(s)=0
+    then halt(1);
+  if (s<>'test')
+    then halt(1);
+end.
diff --git a/tests/webtbs/tw5023.pp b/tests/webtbs/tw5023.pp
new file mode 100644
index 0000000000..c02ee5568c
--- /dev/null
+++ b/tests/webtbs/tw5023.pp
@@ -0,0 +1,22 @@
+unit tw5023;
+
+{$ifdef fpc}{$mode delphi}{$H+}{$endif}
+
+interface
+
+type
+  TScanLine = array of Integer;
+
+implementation
+
+procedure TestSwap(var A, B: Integer);
+begin
+  // do something
+end;
+
+procedure Main(const ALine: TScanLine);
+begin
+  TestSwap(ALine[0], ALine[1]);  // <-- error here
+end;
+
+end.