diff --git a/tests/tbf/tb0156.pp b/tests/tbf/tb0156.pp
new file mode 100644
index 0000000000..b608f45dba
--- /dev/null
+++ b/tests/tbf/tb0156.pp
@@ -0,0 +1,10 @@
+{ %fail }
+
+var
+  _self : pointer;
+begin
+  ppointer(_self+vmt_pos)^:=0;
+end.
+
+ 
+