Merged revisions 7863 via svnmerge from

http://svn.freepascal.org/svn/fpc/trunk

........
  r7863 | yury | 2007-06-30 14:12:44 +0300 (Сб, 30 июн 2007) | 1 line
  
  + New test. Already works.
........

git-svn-id: branches/fixes_2_2@7864 -

.gitattributes

@@ -8147,6 +8147,7 @@ tests/webtbs/tw9076a.pp svneol=native#text/plain
 tests/webtbs/tw9085.pp svneol=native#text/plain
 tests/webtbs/tw9098.pp svneol=native#text/plain
 tests/webtbs/tw9107.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.