1 files changed, 22 insertions, 0 deletions
diff --git a/tests/webtbs/tw14743.pp b/tests/webtbs/tw14743.pp
new file mode 100644
index 0000000000..06aacbac5b
--- /dev/null
+++ b/tests/webtbs/tw14743.pp
@@ -0,0 +1,22 @@
+{$mode delphi}
+program tbreintroduce;
+
+type
+    parent = object
+        constructor init;
+    end;
+
+    child = object(parent)
+        constructor init(a : byte);reintroduce;
+    end;
+
+constructor parent.init;
+begin
+end;
+
+constructor child.init(a : byte);
+begin
+end;
+
+begin
+end.