+ New test. Already works.

git-svn-id: trunk@7863 -

.gitattributes

@@ -8322,6 +8322,7 @@ tests/webtbs/tw9139.pp svneol=native#text/plain
 tests/webtbs/tw9139a.pp svneol=native#text/plain
 tests/webtbs/tw9167.pp svneol=native#text/plain
 tests/webtbs/tw9174.pp svneol=native#text/plain
+tests/webtbs/tw9179.pp svneol=native#text/plain
 tests/webtbs/ub1873.pp svneol=native#text/plain
 tests/webtbs/ub1883.pp svneol=native#text/plain
 tests/webtbs/uw0555.pp svneol=native#text/plain

tests/webtbs/tw9179.pp

@@ -0,0 +1,21 @@
+type
+ fontdataty = record
+   name: ansistring;
+   int: longint;
+ end;
+ 
+var
+  r1: fontdataty;
+  r2: fontdataty;
+begin
+  fillchar(r1,sizeof(r1),0);
+  r1.int:= 12345;
+  writeln(r1.int);
+  r2:=r1;
+  writeln(r2.int);
+  if r1.int <> r2.int then begin
+    writeln('Test failed!');
+    Halt(1);
+  end;
+  writeln('Test OK.');
+end.