From 4b4d9ecbf298918b5c9632ab3de276d3aa249b3f Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Mon, 25 Oct 2004 14:47:32 +0000
Subject: [PATCH]   * new bugs

---
 tests/webtbf/tw3364.pp | 41 +++++++++++++++++++++++++++++++++++++++++
 tests/webtbs/tw3328.pp | 27 +++++++++++++++++++++++++++
 tests/webtbs/tw3348.pp | 24 ++++++++++++++++++++++++
 tests/webtbs/tw3366.pp | 24 ++++++++++++++++++++++++
 4 files changed, 116 insertions(+)
 create mode 100644 tests/webtbf/tw3364.pp
 create mode 100644 tests/webtbs/tw3328.pp
 create mode 100644 tests/webtbs/tw3348.pp
 create mode 100644 tests/webtbs/tw3366.pp

diff --git a/tests/webtbf/tw3364.pp b/tests/webtbf/tw3364.pp
new file mode 100644
index 0000000000..87c8895e2b
--- /dev/null
+++ b/tests/webtbf/tw3364.pp
@@ -0,0 +1,41 @@
+{ %fail }
+{ %opt=-Sew }
+
+{ Source provided for Free Pascal Bug Report 3364 }
+{ Submitted by "Sergey Kosarevsky" on  2004-10-22 }
+{ e-mail: netsurfer@au.ru }
+Type pMyObject1 = ^tMyObject1;
+     tMyObject1 = Object
+        Constructor Init;
+        Destructor Done;
+        Procedure MyProc;Virtual;Abstract;
+     End;
+
+Type pMyObject2 = ^tMyObject2;
+     tMyObject2 = Object(tMyObject1)
+        Constructor Init;
+        Procedure MyProc;Virtual;
+     End;
+
+Constructor tMyObject1.Init;
+Begin
+End;
+
+Destructor tMyObject1.Done;
+Begin
+End;
+
+Constructor tMyObject2.Init;
+Begin
+End;
+
+Procedure tMyObject2.MyProc;
+Begin
+End;
+
+Var T:pMyObject1;
+
+Begin
+   T:=New(pMyObject2, Init);
+   Dispose(T,Done);
+End.
diff --git a/tests/webtbs/tw3328.pp b/tests/webtbs/tw3328.pp
new file mode 100644
index 0000000000..f5743eeb19
--- /dev/null
+++ b/tests/webtbs/tw3328.pp
@@ -0,0 +1,27 @@
+{ Source provided for Free Pascal Bug Report 3328 }
+{ Submitted by "Christian Iversen" on  2004-09-21 }
+{ e-mail: chrivers@iversen-net.dk }
+program fpcdelphi;
+
+var
+  err : boolean;
+
+Function A(Const S1, S2: PAnsiChar): Integer; Overload;
+Begin
+  writeln('pansichar overload');
+  err:=false;
+End;
+
+Function A(Const S1, S2: AnsiString): Integer; Overload;
+Begin
+  writeln('ansistring overload');
+End;
+
+Var
+  X : PAnsiChar;
+Begin
+  err:=true;
+  A(X, '');
+  if err then
+    halt(1);
+End.
diff --git a/tests/webtbs/tw3348.pp b/tests/webtbs/tw3348.pp
new file mode 100644
index 0000000000..e2050a6c8a
--- /dev/null
+++ b/tests/webtbs/tw3348.pp
@@ -0,0 +1,24 @@
+{ %opt=-ghcl }
+
+{ Source provided for Free Pascal Bug Report 3348 }
+{ Submitted by "Martin Schreiber" on  2004-10-10 }
+{ e-mail:  }
+program project1;
+
+{$mode objfpc}{$H+}
+// compile with -gh -gc -gl
+uses
+  Classes;
+type
+ integerarty = array of integer;
+
+procedure proc(ar: array of integer);
+begin
+end;
+
+var
+ ar1: integerarty;
+begin
+ ar1:= nil;
+ proc(ar1); // checkpointer error (nil!)
+end.
diff --git a/tests/webtbs/tw3366.pp b/tests/webtbs/tw3366.pp
new file mode 100644
index 0000000000..760e6302b8
--- /dev/null
+++ b/tests/webtbs/tw3366.pp
@@ -0,0 +1,24 @@
+{ %opt=-Sc }
+
+{ Source provided for Free Pascal Bug Report 3366 }
+{ Submitted by "Sergey Kosarevsky" on  2004-10-22 }
+{ e-mail: netsurfer@au.ru }
+Type tVector3=Array[1..3] Of Single;
+
+Operator * (A:tVector3;B:Single) R:tVector3;
+Var I:Longint;
+Begin
+   For I:=1 To 3 Do R[I]:=A[I]*B;
+
+   Exit(R);
+End;
+
+Var A:tVector3;
+
+Begin
+   A[1]:=1;
+   A[2]:=1;
+   A[3]:=1;
+
+   A*=2;
+End.