From af6d5083b397218fd66577863227510653f25b76 Mon Sep 17 00:00:00 2001 From: florian Date: Sun, 10 Dec 2000 14:05:06 +0000 Subject: [PATCH] no message --- tests/tbf/tb0096.pp | 23 +++++++++++++++++++++++ tests/tbf/tb0097.pp | 22 ++++++++++++++++++++++ tests/tbf/tb0098.pp | 22 ++++++++++++++++++++++ 3 files changed, 67 insertions(+) create mode 100644 tests/tbf/tb0096.pp create mode 100644 tests/tbf/tb0097.pp create mode 100644 tests/tbf/tb0098.pp diff --git a/tests/tbf/tb0096.pp b/tests/tbf/tb0096.pp new file mode 100644 index 0000000000..43b12ae84c --- /dev/null +++ b/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. + + diff --git a/tests/tbf/tb0097.pp b/tests/tbf/tb0097.pp new file mode 100644 index 0000000000..32b9d84127 --- /dev/null +++ b/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. + + diff --git a/tests/tbf/tb0098.pp b/tests/tbf/tb0098.pp new file mode 100644 index 0000000000..ef13bd3519 --- /dev/null +++ b/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. + +