* new bugs

tests/webtbf/tw2996.pp

@@ -0,0 +1,14 @@
+{ %fail }
+
+{ Source provided for Free Pascal Bug Report 2996 }
+{ Submitted by "Michalis Kamburelis" on  2004-02-29 }
+{ e-mail: [email protected] }
+{$mode DELPHI}
+
+type
+  TSomeProc = procedure(i:Integer);
+
+var P:TSomeProc;
+begin
+ if P = nil then ;
+end.

tests/webtbf/tw3000.pp

@@ -0,0 +1,25 @@
+{ %fail }
+
+{ Source provided for Free Pascal Bug Report 3000 }
+{ Submitted by "Vincent Snijders" on  2004-03-03 }
+{ e-mail: [email protected] }
+{$mode objfpc}{$H+}
+
+uses
+  Classes;
+
+type
+  TA=class
+    procedure bla(const a: string); virtual; abstract;
+  end;
+  TB=class(TA)
+    procedure bla(a: string); override;
+  end;
+
+procedure TB.bla(a: string);
+begin
+
+end;
+
+begin
+end.

tests/webtbs/tw2916.pp

@@ -0,0 +1,54 @@
+{ Source provided for Free Pascal Bug Report 2916 }
+{ Submitted by "Ivo Steinmann" on  2004-01-24 }
+{ e-mail: [email protected] }
+
+var
+  x :longint;
+begin
+{$IF Defined(fpc)}
+  writeln('do_foo');
+  inc(x);
+{$ELSEIF Defined(fpc)}
+  writeln('do_bar');
+{$ELSEIF Defined(fpc)}
+  writeln('fpc');
+{$ELSE}
+  writeln('else');
+{$IFEND}
+
+{$IF Defined(fpc1)}
+  writeln('do_foo');
+{$ELSEIF Defined(fpc)}
+  writeln('do_bar');
+  inc(x);
+{$ELSEIF Defined(fpc)}
+  writeln('fpc');
+{$ELSE}
+  writeln('else');
+{$IFEND}
+
+{$IF Defined(fpc1)}
+  writeln('do_foo');
+{$ELSEIF Defined(fpc1)}
+  writeln('do_bar');
+{$ELSEIF Defined(fpc)}
+  writeln('fpc');
+  inc(x);
+{$ELSE}
+  writeln('else');
+{$IFEND}
+
+{$IF Defined(fpc1)}
+  writeln('do_foo');
+{$ELSEIF Defined(fpc1)}
+  writeln('do_bar');
+{$ELSEIF Defined(fpc1)}
+  writeln('fpc');
+{$ELSE}
+  writeln('else');
+  inc(x);
+{$IFEND}
+
+  if x<>4 then
+    writeln('ERROR!');
+end.

tests/webtbs/tw2926.pp

@@ -0,0 +1,17 @@
+{ Source provided for Free Pascal Bug Report 2926 }
+{ Submitted by "Johannes Berg" on  2004-01-31 }
+{ e-mail: [email protected] }
+program test;
+
+uses
+(*$IFDEF LINUX *)
+   Unix,
+(*$ENDIF *)
+
+(*$IFDEF MSWINDOWS *)
+   Windows,
+(*$ENDIF *)
+  SysUtils, Classes;
+
+begin
+end.

tests/webtbs/tw2999.pp

@@ -0,0 +1,18 @@
+{ Source provided for Free Pascal Bug Report 2999 }
+{ Submitted by "Sergey Kosarevsky" on  2004-03-03 }
+{ e-mail: [email protected] }
+
+{$mode objfpc}
+
+Type tSelector=(FIRST, SECOND);
+
+Type tMyClass=Class
+       Private
+        T:Array[tSelector] Of Longint;
+       Public
+        Property T1:Longint Read T[FIRST];
+        Property T2:Longint Read T[SECOND];
+     End;
+
+Begin
+End.