* new bugs

tests/webtbs/tw2883.pp

@@ -0,0 +1,28 @@
+{ Source provided for Free Pascal Bug Report 2883 }
+{ Submitted by "Den Jean" on  2004-01-06 }
+{ e-mail: Den.Jean@pandora.be }
+unit tw2883;
+
+interface
+   type TRec = record
+      Field1 : smallint;
+      Field2 : smallint;
+   end;
+
+   function Func1 : integer;
+   function Func2 (DefParam : integer = 1) : TRec;
+
+Implementation
+
+   function Func1 : integer;
+   begin
+   Result := Func2.Field1;
+   end;
+
+   function Func2 (DefParam : integer = 1) : TRec;
+   begin
+   Result.Field1 := DefParam;
+   Result.Field2 := 2;
+   end;
+
+end.

tests/webtbs/tw2891.pp

@@ -0,0 +1,13 @@
+uses
+ Math;
+
+ var
+ d: Double;
+ e: Extended;
+
+ begin
+ d := 0;
+ e := 0;
+
+ d := Min(d, e);
+ end.

tests/webtbs/tw2892.pp

@@ -0,0 +1,24 @@
+{ Source provided for Free Pascal Bug Report 2892 }
+{ Submitted by "Eric Grange" on  2004-01-12 }
+{ e-mail: egrange@glscene.org }
+
+{$mode delphi}
+
+type
+   TAffineVector = array [0..2] of Single;
+   TVector = array [0..3] of Single;
+
+function VectorMake(const v : TAffineVector; w : Single = 0) : TVector; overload;
+begin
+end;
+
+function VectorMake(const x, y, z: Single; w : Single = 0) : TVector; overload;
+begin
+end;
+
+var
+   avec : TAffineVector;
+   vec : TVector;
+begin
+   vec:=VectorMake(avec);
+end.