diff --git a/.gitattributes b/.gitattributes
index 251885a8a5..052c10e269 100644
--- a/.gitattributes
+++ b/.gitattributes
@@ -18501,6 +18501,7 @@ tests/webtbs/tw37949.pp svneol=native#text/pascal
 tests/webtbs/tw3796.pp svneol=native#text/plain
 tests/webtbs/tw37969.pp svneol=native#text/pascal
 tests/webtbs/tw38012.pp svneol=native#text/pascal
+tests/webtbs/tw38022.pp svneol=native#text/pascal
 tests/webtbs/tw3805.pp svneol=native#text/plain
 tests/webtbs/tw3814.pp svneol=native#text/plain
 tests/webtbs/tw3827.pp svneol=native#text/plain
diff --git a/tests/webtbs/tw38022.pp b/tests/webtbs/tw38022.pp
new file mode 100644
index 0000000000..a8c7d1c5dc
--- /dev/null
+++ b/tests/webtbs/tw38022.pp
@@ -0,0 +1,19 @@
+uses
+  variants;
+type
+  tr = packed record
+    b : byte;
+    v : tvardata;
+  end;
+procedure p(var a : variant);
+var
+  vd : tvardata;
+begin
+  vd:=tvardata(a);
+end;
+
+var
+  r : tr;
+begin
+  p(variant(r.v));
+end.