florian 25 лет назад
Родитель
Сommit
af6d5083b3
3 измененных файлов с 67 добавлено и 0 удалено
  1. 23 0
      tests/tbf/tb0096.pp
  2. 22 0
      tests/tbf/tb0097.pp
  3. 22 0
      tests/tbf/tb0098.pp

+ 23 - 0
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.
+
+

+ 22 - 0
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.
+
+

+ 22 - 0
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.
+
+