diff --git a/tests/webtbs/tw39464.pp b/tests/webtbs/tw39464.pp
new file mode 100644
index 0000000000..d9beaa5906
--- /dev/null
+++ b/tests/webtbs/tw39464.pp
@@ -0,0 +1,17 @@
+{ %norun }
+program Test;
+
+{$Mode ObjFPC}
+
+type
+  TTestRec = packed record
+    Empty: packed record end;
+  end;
+
+function GetEmptyPtr(R: TTestRec): Pointer;
+begin
+  Result := @R.Empty;
+end;
+    
+begin
+end.