From 7b67378206eb56e738cc2be5110c259d43255854 Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Sun, 9 Feb 2025 16:35:30 +0100
Subject: [PATCH]   + test for last commit

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

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.