From b4eb1780adc03586278a8780b376300308b33727 Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Sun, 28 Mar 2021 21:10:13 +0000
Subject: [PATCH]   * added test, issue is fixed by r48758 already

git-svn-id: trunk@49075 -
---
 .gitattributes          |  1 +
 tests/webtbs/tw34232.pp | 16 ++++++++++++++++
 2 files changed, 17 insertions(+)
 create mode 100644 tests/webtbs/tw34232.pp

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.