diff --git a/.gitattributes b/.gitattributes
index cf03c964a5..073387a45c 100644
--- a/.gitattributes
+++ b/.gitattributes
@@ -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
diff --git a/tests/webtbs/tw34232.pp b/tests/webtbs/tw34232.pp
new file mode 100644
index 0000000000..f2a7938406
--- /dev/null
+++ b/tests/webtbs/tw34232.pp
@@ -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.