* more bugs

tests/webtbf/tw1830.pp

@@ -0,0 +1,11 @@
+{ %fail }
+
+procedure confronta(primo,primo,comuni:string);
+begin // primo==first
+end;
+
+var vett:array[1..10] of string;
+begin
+confronta(vett[1],vett[2],comuni);
+end.
+

tests/webtbs/tw1798.pp

@@ -0,0 +1,26 @@
+{$ifdef fpc}{$mode objfpc}{$endif}
+
+type
+
+TGraphicControl = class
+end;
+
+TButton = class
+end;
+
+TBitBtn = class(TButton)
+private
+published
+end;
+
+TSpeedButton = class(TGraphicControl)
+published
+end;
+
+TMyButton = class(TBitBtn);
+
+const MyConst = 1;
+
+begin
+end.
+

tests/webtbs/tw1825.pp

@@ -0,0 +1,17 @@
+{ %version=1.1 }
+
+{$mode objfpc}
+
+{ Source provided for Free Pascal Bug Report 1825 }
+{ Submitted by "marcov" on  2002-02-19 }
+{ e-mail: [email protected] }
+program x;
+
+Type
+    IEnumMoniker = Interface (IUnknown)
+       ['{00000102-0000-0000-C000-000000000046}']
+       End;
+
+begin
+end.
+