From 30c326bd62910c1ecfb5fde7c816e335104a3302 Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Sun, 29 Aug 2004 11:58:39 +0000
Subject: [PATCH] new bugs

---
 tests/webtbf/tw3145.pp | 15 +++++++++++++++
 tests/webtbs/tw3137.pp | 18 ++++++++++++++++++
 tests/webtbs/tw3143.pp | 42 ++++++++++++++++++++++++++++++++++++++++++
 tests/webtbs/tw3144.pp |  9 +++++++++
 tests/webtbs/tw3281.pp | 17 +++++++++++++++++
 5 files changed, 101 insertions(+)
 create mode 100644 tests/webtbf/tw3145.pp
 create mode 100644 tests/webtbs/tw3137.pp
 create mode 100644 tests/webtbs/tw3143.pp
 create mode 100644 tests/webtbs/tw3144.pp
 create mode 100644 tests/webtbs/tw3281.pp

diff --git a/tests/webtbf/tw3145.pp b/tests/webtbf/tw3145.pp
new file mode 100644
index 0000000000..9d1463878e
--- /dev/null
+++ b/tests/webtbf/tw3145.pp
@@ -0,0 +1,15 @@
+{ %fail }
+
+{ Source provided for Free Pascal Bug Report 3145 }
+{ Submitted by "Christian Iversen" on  2004-06-08 }
+{ e-mail: chrivers@iversen-net.dk }
+program envhost;
+
+{$mode objfpc}
+
+Procedure Foo(A : Integer = Integer(Nil^));
+begin
+end;
+
+begin
+end.
diff --git a/tests/webtbs/tw3137.pp b/tests/webtbs/tw3137.pp
new file mode 100644
index 0000000000..9124b20085
--- /dev/null
+++ b/tests/webtbs/tw3137.pp
@@ -0,0 +1,18 @@
+{ Source provided for Free Pascal Bug Report 3137 }
+{ Submitted by "Vincent Snijders" on  2004-06-04 }
+{ e-mail: vslist@zonnet.nl }
+unit tw3137;
+
+{$ifdef fpc}{$mode delphi}{$endif}
+
+interface
+
+function a: integer; assembler;
+
+implementation
+
+function a: integer;
+asm
+end;
+
+end.
diff --git a/tests/webtbs/tw3143.pp b/tests/webtbs/tw3143.pp
new file mode 100644
index 0000000000..c59d28e38a
--- /dev/null
+++ b/tests/webtbs/tw3143.pp
@@ -0,0 +1,42 @@
+{ Source provided for Free Pascal Bug Report 3143 }
+{ Submitted by "Martin Schreiber" on  2004-06-06 }
+{ e-mail:  }
+program project1;
+
+{$mode objfpc}{$H+}
+
+uses
+  Classes;
+
+type
+ testrecty = record
+  refcount: integer;
+ end;
+
+var
+ fonts: array of testrecty;
+ test: integer;
+
+function registerfont(var info: integer): integer;
+begin
+ result:= 0;
+ if result = 0 then begin
+  result:= length(fonts)+1;
+  setlength(fonts,result);
+ end;
+ test:= result;    //test = 1
+ with fonts[result-1] do begin
+   refcount:= 1;
+ end;
+ test:= result;    //exp: test = 1
+                   //act: test = 4617532
+end;
+
+var
+ int1: integer;
+begin
+ test:= registerfont(int1);
+ writeln(test);
+ if test<>1 then
+   halt(1);
+end.
diff --git a/tests/webtbs/tw3144.pp b/tests/webtbs/tw3144.pp
new file mode 100644
index 0000000000..57d5cafb13
--- /dev/null
+++ b/tests/webtbs/tw3144.pp
@@ -0,0 +1,9 @@
+{ Source provided for Free Pascal Bug Report 3144 }
+{ Submitted by "Sergey Kosarevsky" on  2004-06-06 }
+{ e-mail: netsurfer@au.ru }
+Var S:Longint;
+
+Begin
+   S:=100-Random(200);
+   writeln(S);
+End.
diff --git a/tests/webtbs/tw3281.pp b/tests/webtbs/tw3281.pp
new file mode 100644
index 0000000000..de29ec28f9
--- /dev/null
+++ b/tests/webtbs/tw3281.pp
@@ -0,0 +1,17 @@
+{ %opt=-Sew }
+
+{$ifdef fpc}{$mode objfpc}{$endif}
+{$M+}
+
+type
+  tc1=class
+  published
+    constructor create;
+  end;
+
+constructor tc1.create;
+begin
+end;
+
+begin
+end.
\ No newline at end of file