+ test for mantis #16357 fixed in r15350

git-svn-id: trunk@15357 -

.gitattributes

@@ -10391,6 +10391,7 @@ tests/webtbs/tw15296.pp svneol=native#text/plain
 tests/webtbs/tw15304.pp svneol=native#text/plain
 tests/webtbs/tw15308.pp svneol=native#text/plain
 tests/webtbs/tw1532.pp svneol=native#text/plain
+tests/webtbs/tw15357.pp svneol=native#text/plain
 tests/webtbs/tw15363.pp svneol=native#text/plain
 tests/webtbs/tw15364.pp svneol=native#text/plain
 tests/webtbs/tw15370.pp svneol=native#text/plain

tests/webtbs/tw15357.pp

@@ -0,0 +1,37 @@
+type
+  TType = packed record
+    a: byte;
+    b: byte;
+    c: longword;
+  end;
+
+  ttypecontainer = packed record
+    r: ttype;
+    b1,b2: byte;
+  end;
+
+function make: TType;
+begin
+  make.a:=1;
+  make.b:=2;
+  make.c:=$12345678;
+end;
+
+var
+  id: ttypecontainer;
+begin
+  id.b1:=123;
+  id.b2:=234;
+  id.r := make();
+  if id.r.a<>1 then
+    halt(1);
+  if id.r.b<>2 then
+    halt(2);
+  if id.r.c<>$12345678 then
+    halt(3);
+  if id.b1<>123 then
+    halt(4);
+  if id.b2<>234 then
+    halt(5);
+end.
+