* new bugs

tests/webtbf/tw3626.pp

@@ -0,0 +1,24 @@
+{ %skipcpu=x86_64 }
+{ %fail }
+
+{ Source provided for Free Pascal Bug Report 3626 }
+{ Submitted by "Marc Geldon" on  2005-02-02 }
+{ e-mail: [email protected] }
+program project1;
+
+{$H+}
+
+uses
+  SysUtils
+  { add your units here };
+
+var
+  i: Integer;
+begin
+  { This should give an range check error at compile time for
+    32bit systems }
+  for i := 0 to 90000000000000000 do
+  begin
+    writeln(inttostr(i));
+  end;
+end.

tests/webtbs/tw3621.pp

@@ -0,0 +1,16 @@
+{ Source provided for Free Pascal Bug Report 3621 }
+{ Submitted by "Thomas Schatzl" on  2005-02-01 }
+{ e-mail:  }
+{$MODE OBJFPC}
+type
+        tfourcc=array[0..3] of char;
+
+FUNCTION comp(f1, f2:tfourcc):boolean;
+BEGIN
+  comp:=((f1[0]=f2[0]) AND (f1[1]=f2[1]) AND (f1[2]=f2[2]) AND (f1[3]=f2[3]));
+END;
+
+
+begin
+        comp('ABCD', 'DEFG');
+end.