* new bugs

tests/webtbf/tw3790.pp

@@ -0,0 +1,23 @@
+{ %fail }
+
+{ Source provided for Free Pascal Bug Report 3790 }
+{ Submitted by "C Western" on  2005-03-14 }
+{ e-mail: [email protected] }
+program test;
+
+{$mode objfpc}{$H+}
+
+uses
+  Classes, SysUtils;
+
+function A(Error: Double):string;
+begin
+  WriteLn('Hello');
+  if Error < 0 then begin
+    Result := Str(Error:5);
+  end;
+end;
+
+begin
+  WriteLn(A(-53));
+end.

tests/webtbs/tw3796.pp

@@ -0,0 +1,32 @@
+{ Source provided for Free Pascal Bug Report 3796 }
+{ Submitted by "Antonio Marti" on  2005-03-15 }
+{ e-mail: [email protected] }
+{
+FAILS WITH: fpc -Mobjfpc test.pp
+WHY? IS IT A BUG?
+}
+unit tw3796;
+
+{$mode objfpc}
+
+interface
+
+uses objects;
+
+type
+  PType                 = ^TType;
+  TType                 = object(TObject)
+    private
+      function IsEmpty: Boolean;
+    public
+      property Empty : Boolean Read IsEmpty;
+  end;
+
+implementation
+
+function TType.IsEmpty: Boolean;
+begin
+  result:=True;
+end;
+
+end.