paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-05 23:47:52 +02:00
Code Issues Packages Projects Releases Wiki Activity

* added test, issue is fixed by r48758 already

Browse Source 
git-svn-id: trunk@49075 -
This commit is contained in:
florian 2021-03-28 21:10:13 +00:00
parent 47eb7cec0c
commit b4eb1780ad
2 changed files with 17 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -18497,6 +18497,7 @@ tests/webtbs/tw3411.pp svneol=native#text/plain
tests/webtbs/tw34124.pp svneol=native#text/pascal
tests/webtbs/tw3418.pp svneol=native#text/plain
tests/webtbs/tw3423.pp svneol=native#text/plain
tests/webtbs/tw34232.pp svneol=native#text/pascal
tests/webtbs/tw34239.pp svneol=native#text/pascal
tests/webtbs/tw34287.pp svneol=native#text/pascal
tests/webtbs/tw3429.pp svneol=native#text/plain

16
tests/webtbs/tw34232.pp Normal file
View File

@ -0,0 +1,16 @@
program Project1;
{$mode objfpc}{$H+}
type
generic TTest<TKey, TValue> = packed object
type
TPair = packed record
key: TKey;
value: TValue;
end;
TPairSizeEquivalent = packed array[1..sizeof(TPair)] of byte;
end;
TTestStringString = specialize TTest<string, string>;
begin
writeln(sizeof(TTestStringString.TPairSizeEquivalent));
end.