* new bugs

tests/webtbf/tw2795.pp

@@ -0,0 +1,9 @@
+{ %fail }
+
+{ Source provided for Free Pascal Bug Report 2795 }
+{ Submitted by "marco" on  2003-11-17 }
+{ e-mail:  }
+
+begin
+  exit (-1);
+end.

tests/webtbs/tw2803.pp

@@ -0,0 +1,10 @@
+{ Source provided for Free Pascal Bug Report 2803 }
+{ Submitted by "C Western" on  2003-11-22 }
+{ e-mail: [email protected] }
+program Test;
+{$T+}
+var
+  a: array of Double;
+begin
+  SetLength(a,100);
+end.

tests/webtbs/tw2806.pp

@@ -0,0 +1,25 @@
+{ %cpu=i386 }
+
+{$ifdef fpc}{$asmmode intel}{$endif}
+
+type
+  tptentry=record
+    l1,l2 : longint;
+  end;
+var
+  piecetab : array[0..10] of tptentry;
+  p1,p2 : pointer;
+begin
+  p1:=@piecetab[8];
+  asm
+    lea ecx,PieceTab+8 * type(tPTEntry)
+    mov p2,ecx
+  end;
+  if p1<>p2 then
+    begin
+      writeln('Error!');
+      halt(1);
+    end;
+end.
+
+

tests/webtbs/tw2812.pp

@@ -0,0 +1,19 @@
+var
+  f:file;
+  p:pointer;
+  i : integer;
+begin
+
+  Assign(f,'blockwritetest.tmp');
+  {$I-}
+  Rewrite(f,1);
+  p:=nil;
+  BlockWrite(f,p^,12345);
+  Close(f);
+  {$I+}
+  i:=ioresult;
+  writeln('IOResult: ',i);
+  if i=101 then
+    halt(1);
+end.
+