diff --git a/.gitattributes b/.gitattributes
index ff46ea9d33..98a492a21e 100644
--- a/.gitattributes
+++ b/.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
diff --git a/tests/webtbs/tw9179.pp b/tests/webtbs/tw9179.pp
new file mode 100644
index 0000000000..6779ad348e
--- /dev/null
+++ b/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.