+ test for #38022

git-svn-id: trunk@47304 -

.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

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.