diff --git a/tests/tbs/tb0720.pp b/tests/tbs/tb0720.pp
new file mode 100644
index 0000000000..7dee1e82e2
--- /dev/null
+++ b/tests/tbs/tb0720.pp
@@ -0,0 +1,20 @@
+{$apptype console}
+{$mode objfpc}
+type
+	Cls = class(TInterfacedObject)
+		destructor Destroy; override;
+	end;
+
+var
+	ClsInstance: IUnknown;
+
+	destructor Cls.Destroy;
+	begin
+		writeln(Assigned(ClsInstance));
+        if Assigned(ClsInstance) then
+          halt(1);
+	end;
+
+begin
+	ClsInstance := Cls.Create;
+end.