1 files changed, 33 insertions, 0 deletions
diff --git a/tests/webtbs/tw24865.pp b/tests/webtbs/tw24865.pp
new file mode 100644
index 0000000000..77f42329a1
--- /dev/null
+++ b/tests/webtbs/tw24865.pp
@@ -0,0 +1,33 @@
+{ %NORUN }
+program tw24865;
+
+{$mode delphi}
+
+type
+  TTest = class
+  public
+    class var fc3: integer;
+    class procedure c1();
+    class procedure c2(); static;
+    class property c3: integer read fc3 write fc3;
+  end;
+
+class procedure TTest.c1;
+begin
+end;
+
+class procedure TTest.c2;
+
+  function nested: integer;
+  begin
+    c1;
+    fc3 := 1;
+    c3 := 2;
+    result := c3;
+  end;
+
+begin
+end;
+
+begin
+end.