* test for fixed bug to play safe

2025-08-07 05:06:00 +02:00 · 2022-01-30 22:34:35 +01:00 · 2022-01-30 22:34:35 +01:00 · f36a665879
commit f36a665879
parent 859ae5fc7c
1 changed files with 17 additions and 0 deletions
--- a/tests/webtbs/tw39464.pp
+++ 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.