1 files changed, 19 insertions, 0 deletions
diff --git a/avx512-0037785/tests/webtbs/tw38022.pp b/avx512-0037785/tests/webtbs/tw38022.pp
new file mode 100644
index 0000000000..a8c7d1c5dc
--- /dev/null
+++ b/avx512-0037785/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.