diff --git a/tests/tbs/tb0456.pp b/tests/tbs/tb0456.pp
new file mode 100644
index 0000000000..9acc80eaac
--- /dev/null
+++ b/tests/tbs/tb0456.pp
@@ -0,0 +1,10 @@
+{$mode delphi}
+
+type
+  c=class
+   function Byte: Byte; virtual; abstract;
+  end;
+
+begin
+end.
+