diff --git a/tests/webtbs/tw3073.pp b/tests/webtbs/tw3073.pp
new file mode 100644
index 0000000000..d72dc4ba0b
--- /dev/null
+++ b/tests/webtbs/tw3073.pp
@@ -0,0 +1,19 @@
+{ Source provided for Free Pascal Bug Report 3073 }
+{ Submitted by "Martin Schreiber" on  2004-04-30 }
+{ e-mail:  }
+program project1;
+
+ {$mode objfpc}{$H+}
+
+uses
+ Classes;
+var
+ po1,po2: pwidechar;
+begin
+ po1:= 'abc';
+ po2:= po1+1;
+ if po2-po1<>1 then
+   halt(1);
+ if pwidechar(24)-pwidechar(22)<>1 then
+  halt(1);
+end.
\ No newline at end of file