From 867ab3347ee44f767af5eb3c504d80a431de0e7d Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Wed, 21 Jan 2004 14:12:23 +0000
Subject: [PATCH] no message

---
 tests/tbs/tb0469.pp | 48 +++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 48 insertions(+)
 create mode 100644 tests/tbs/tb0469.pp

diff --git a/tests/tbs/tb0469.pp b/tests/tbs/tb0469.pp
new file mode 100644
index 0000000000..8960f6e8cc
--- /dev/null
+++ b/tests/tbs/tb0469.pp
@@ -0,0 +1,48 @@
+{ %version=1.1}
+{ %opt=-vw }
+{$mode objfpc}
+type
+  to1 = class
+    procedure p1;
+    procedure p2;virtual;
+    procedure p3;
+  end;
+
+  to2 = class(to1)
+    procedure p1;
+    procedure p2;virtual;reintroduce;
+    procedure p3;virtual;
+  end;
+
+procedure to1.p1;
+  begin
+  end;
+
+
+procedure to1.p2;
+  begin
+  end;
+
+
+procedure to1.p3;
+  begin
+  end;
+
+
+procedure to2.p1;
+  begin
+  end;
+
+
+procedure to2.p2;
+  begin
+  end;
+
+
+procedure to2.p3;
+  begin
+  end;
+
+
+begin
+end.