From ae06528db4c33881ffab70da4ac8dfa8b4e05607 Mon Sep 17 00:00:00 2001
From: Sven/Sarah Barth <pascaldragon@gmail.com>
Date: Sun, 18 Feb 2024 19:34:51 +0100
Subject: [PATCH] + add test for already fixed #24285

---
 tests/webtbs/tw24285.pp | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)
 create mode 100644 tests/webtbs/tw24285.pp

diff --git a/tests/webtbs/tw24285.pp b/tests/webtbs/tw24285.pp
new file mode 100644
index 0000000000..92f0812adb
--- /dev/null
+++ b/tests/webtbs/tw24285.pp
@@ -0,0 +1,23 @@
+{ %NORUN }
+
+program tw24285;
+
+{$mode delphi}{$H+}
+
+type
+  TA<T> = class
+  end;
+
+  TB<T> = class
+  public
+    type
+      TA = class(TA<T>)
+      end;
+  end;
+
+type
+  TBLongInt = TB<LongInt>;
+
+begin
+
+end.