no message

tests/tbf/tb0096.pp

@@ -0,0 +1,23 @@
+{ derived from source for Bug Report 1203 }
+{ in FPC mode this shouldn't compile      }
+{$mode objfpc}
+type
+     someprocedureofobjectype=procedure (sender:tobject) OF OBJECT;
+     a=class
+     protected
+        fondisplay : someprocedureofobjectype;
+     public
+        a:longint;
+     end;
+
+     b=class(A)
+     protected
+        fondisplay : someprocedureofobjectype;
+     public
+        a:longint;
+     end;
+
+begin
+end.
+
+

tests/tbf/tb0097.pp

@@ -0,0 +1,22 @@
+{ derived from Web Bug Report 1203 }
+{$mode Delphi}
+type
+     someprocedureofobjectype=procedure (sender:tobject) OF OBJECT;
+     a=object
+     protected
+        fondisplay : someprocedureofobjectype;
+     public
+        a:longint;
+     end;
+
+     b=object(A)
+     protected
+        fondisplay : someprocedureofobjectype;
+     public
+        a:longint;
+     end;
+
+begin
+end.
+
+

tests/tbf/tb0098.pp

@@ -0,0 +1,22 @@
+{ derived from Web Bug Report 1203 }
+{$mode objfpc}
+type
+     someprocedureofobjectype=procedure (sender:tobject) OF OBJECT;
+     a=object
+     protected
+        fondisplay : someprocedureofobjectype;
+     public
+        a:longint;
+     end;
+
+     b=object(A)
+     protected
+        fondisplay : someprocedureofobjectype;
+     public
+        a:longint;
+     end;
+
+begin
+end.
+
+