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.