new bugs

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.

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.

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.

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.

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.