From 9abe8bf055f17ad93c2a9c4935af93f54c4a06d4 Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Wed, 27 Nov 2002 02:38:09 +0000
Subject: [PATCH]   * new bugs

---
 tests/webtbs/tw2045.pp | 55 ++++++++++++++++++++++++++++++++++++++++++
 tests/webtbs/tw2046.pp | 18 ++++++++++++++
 tests/webtbs/tw2128.pp | 12 +++++++++
 3 files changed, 85 insertions(+)
 create mode 100644 tests/webtbs/tw2045.pp
 create mode 100644 tests/webtbs/tw2046.pp
 create mode 100644 tests/webtbs/tw2128.pp

diff --git a/tests/webtbs/tw2045.pp b/tests/webtbs/tw2045.pp
new file mode 100644
index 0000000000..148db1edeb
--- /dev/null
+++ b/tests/webtbs/tw2045.pp
@@ -0,0 +1,55 @@
+{ Source provided for Free Pascal Bug Report 2045 }
+{ Submitted by "Eero Tanskanen" on  2002-07-16 }
+{ e-mail: yendor@nic.fi }
+Unit tw2045;
+Interface
+
+  Type
+
+    TCoords = Object
+
+      X, Y, Z: Real;
+
+    End;
+
+    PEmpty = ^TEmpty;
+    TEmpty = Object
+
+    End;
+
+    PBugger = ^TBugger;
+    TBugger = Object
+
+      A : TCoords;
+      B : TCoords;
+      C : TCoords;
+
+      Empty : PEmpty;
+
+      Function DoInternalError : PBugger;
+
+    End;
+
+Implementation
+
+  Function CallForBug(A, B, C, D, E, F, G, H, I : Real) : PEmpty;
+  Begin
+
+  End;
+
+  Function TBugger.DoInternalError : PBugger;
+  Var
+    TempEmpty : PEmpty;
+  Begin
+
+    DoInternalError := Nil;
+
+    TEmpEmpty := CallForBug(DoInternalError^.A.X, DoInternalError^.A.Y, DoInternalError^.A.Z,
+      DoInternalError^.B.X, DoInternalError^.B.Y, DoInternalError^.B.Z,
+        DoInternalError^.C.X, DoInternalError^.C.Y,  DoInternalError^.C.Z);
+
+  End;
+
+
+Begin
+End.
diff --git a/tests/webtbs/tw2046.pp b/tests/webtbs/tw2046.pp
new file mode 100644
index 0000000000..d58deff7b0
--- /dev/null
+++ b/tests/webtbs/tw2046.pp
@@ -0,0 +1,18 @@
+{ Source provided for Free Pascal Bug Report 2046 }
+{ Submitted by "Mattias Gaertner" on  2002-07-17 }
+{ e-mail: nc-gaertnma@netcologne.de }
+program printftest;
+
+{$mode objfpc}{$H+}
+
+procedure printf(fm: pchar; args: array of const); cdecl; external 'c';
+
+procedure print(args: array of const);
+begin
+  printf('a number %i'#13#10,args);
+end;
+
+begin
+  print([3333]);
+end.
+
diff --git a/tests/webtbs/tw2128.pp b/tests/webtbs/tw2128.pp
new file mode 100644
index 0000000000..4b240d4abe
--- /dev/null
+++ b/tests/webtbs/tw2128.pp
@@ -0,0 +1,12 @@
+{ Source provided for Free Pascal Bug Report 2128 }
+{ Submitted by "Bill Rayer" on  2002-09-18 }
+{ e-mail: lingolanguage@hotmail.com }
+
+{
+  Excessive 64-bit literal causes the FPC compiler to crash.
+}
+var
+  c : comp;
+begin
+  c := -9223372036854775809;
+end.