paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-26 16:32:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

* test for fixed bug to play safe

Browse Source 
(cherry picked from commit f36a665879)
This commit is contained in:
Florian Klämpfl 2022-01-30 22:34:35 +01:00
parent 6279283ce1
commit 2ea6e0c82e
1 changed files with 17 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
tests/webtbs/tw39464.pp Normal file
View File

@ -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.