diff --git a/tests/webtbs/tw1374.pp b/tests/webtbs/tw1374.pp
new file mode 100644
index 0000000000..a95c11586c
--- /dev/null
+++ b/tests/webtbs/tw1374.pp
@@ -0,0 +1,22 @@
+{ Source provided for Free Pascal Bug Report 1374 }
+{ Submitted by "Christian Keck" on  2001-02-01 }
+{ e-mail: C.Keck@gmx.net }
+program realtest;
+
+var temp        : longint;
+    low         : byte;
+    high        : byte;
+    DLL_Version : extended{real};
+
+begin
+  temp:= 14340; { This value is normaly retrieved form an external DLL }
+
+  low:= ((temp shr 8) and $FF);
+  high:= (temp and $FF);          { Some calculation...   }
+  DLL_Version:= high + (low/100); { to get an real result }
+
+  { ... }
+
+  if DLL_Version < 4.56 then      { 4.560000000000000E+000 < 4.56 ?!?! }
+    writeln ('Error! 4.56 < 4.56');
+end.
diff --git a/tests/webtbs/tw1375.pp b/tests/webtbs/tw1375.pp
new file mode 100644
index 0000000000..8a6578b236
--- /dev/null
+++ b/tests/webtbs/tw1375.pp
@@ -0,0 +1,16 @@
+{ Source provided for Free Pascal Bug Report 1375 }
+{ Submitted by "Bill Rayer" on  2001-02-01 }
+{ e-mail: lingolanguage@hotmail.com }
+(*
+Should be able to use null ptr as 2nd param of InvalidateRect()
+Compiles in Delphi 4:
+  dcc32 fpc1
+Does not compile in FPC:
+  ppc386 -Sd fpc1
+*)
+
+program test1;
+uses windows;
+begin
+  InvalidateRect (HWND(0), pointer(0), TRUE);
+end.
\ No newline at end of file