+ test I forgot to commit earlier

git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@13309 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 51 insertions, 0 deletions

diff --git a/tests/test/opt/twpo6.pp b/tests/test/opt/twpo6.pp
new file mode 100644
index 0000000000..6b22d02bd1
--- /dev/null
+++ b/tests/test/opt/twpo6.pp
@@ -0,0 +1,51 @@
+{ %wpoparas=devirtcalls,optvmts }
+{ %wpopasses=1 }
+
+{$mode objfpc}
+{$m+}
+
+{ check that multiple descendents properly mark parent class method as
+  non-optimisable
+}
+
+type
+  tbase = class
+    procedure test; virtual;
+  end;
+
+  tchild1 = class(tbase)
+    procedure test; override;
+  end;
+
+  tchild2 = class(tbase)
+   published
+    procedure test; override;
+  end;
+
+procedure tbase.test;
+begin
+  halt(1);
+end;
+
+var
+  a: longint;
+
+procedure tchild1.test;
+begin
+  if a<>1 then
+    halt(2);
+end;
+
+procedure tchild2.test;
+begin
+  if a<>2 then
+    halt(3);
+end;
+
+var
+  bb: tbase;
+begin
+  bb:=tchild1.create;
+  if (bb is tchild2) then
+    halt(1);
+end.