* new bugs

tests/webtbf/tw2362.pp

@@ -0,0 +1,18 @@
+{ %fail }
+
+{ Source provided for Free Pascal Bug Report 2362 }
+{ Submitted by "Maarten Bekers" on  2003-02-07 }
+{ e-mail: fpc-bugs@elebbs.com }
+unit tw2362;
+
+interface
+
+type blah = function: integer;
+function iee: integer;
+
+
+var blah: blah;
+
+begin
+  blah := iee;
+end.

tests/webtbs/tw2328.pp

@@ -0,0 +1,16 @@
+{ Source provided for Free Pascal Bug Report 2328 }
+{ Submitted by "Pavel V. Ozerski" on  2003-01-20 }
+{ e-mail: ozerski@list.ru }
+{$ifdef fpc}
+{$mode objfpc}
+{$endif}
+type
+ tClassA=class
+  procedure DefaultHandler(var Message);override;
+ end;
+procedure tClassA.DefaultHandler(var Message);
+ begin
+  inherited //;
+ end;
+begin
+end.

tests/webtbs/tw2351.pp

@@ -0,0 +1,17 @@
+{ %version=1.1 }
+{ %opt=-Seh -vh }
+
+{ Source provided for Free Pascal Bug Report 2351 }
+{ Submitted by "Sergey Kosarevsky" on  2003-02-02 }
+{ e-mail: netsurfer@au.ru }
+
+{$mode objfpc}
+
+Procedure DefaultParam(Param:String='10');
+Begin
+   WriteLn(Param);
+End;
+
+Begin
+   DefaultParam();
+End.

tests/webtbs/tw2378.pp

@@ -0,0 +1,30 @@
+{ Source provided for Free Pascal Bug Report 2378 }
+{ Submitted by "Yakov Sudeikin" on  2003-02-13 }
+{ e-mail: yashka@exebook.com }
+
+{$mode delphi}
+
+type
+ tfunc = procedure of object;
+
+ ttest = class
+   procedure callback;
+   procedure start;
+   procedure call(ptr: tfunc);
+ end;
+
+procedure ttest.callback;
+begin
+end;
+
+procedure ttest.call;
+begin
+end;
+
+procedure ttest.start;
+begin
+ call(callback);
+end;
+
+begin
+end.