* new bugs

tests/webtbf/tw2357.pp

@@ -0,0 +1,13 @@
+{ %fail }
+
+unit tw2357;
+interface
+ type
+ TQ = class(TObject)
+ public
+ procedure DoSome(const X); virtual; abstract;
+ function GetSome : integer; virtual; overload;
+ function GetSome : string; virtual; overload; abstract;
+ end;
+ implementation
+ end.

tests/webtbf/tw2383.pp

@@ -0,0 +1,27 @@
+{ %fail }
+
+{ Source provided for Free Pascal Bug Report 2383 }
+{ Submitted by "Anton Roolaid" on  2003-02-18 }
+{ e-mail: [email protected] }
+program VarParameterLoop;
+
+const
+  Elements = 3; { Array size }
+  Arr: array [0 .. Elements - 1] of char = ('B', 'U', 'G');
+
+function FindIndex(chElement: char; var iIndex: integer): boolean;
+begin
+  FindIndex := false; { Not found }
+  { Using a variable parameter should not be allowed }
+  for iIndex := 0 to Elements - 1 do
+    if Arr[iIndex] = chElement then exit(true) { Found }
+end;
+
+var
+ i: integer;
+begin
+  if FindIndex('U', i) then
+    writeln('The index is ', i)
+  else
+    writeln('Not found')
+end.