diff --git a/.gitattributes b/.gitattributes
index f26a0419a2..08ca2eb276 100644
--- a/.gitattributes
+++ b/.gitattributes
@@ -7910,6 +7910,7 @@ tests/webtbs/tw7105.pp svneol=native#text/plain
 tests/webtbs/tw7143.pp -text
 tests/webtbs/tw7161.pp svneol=native#text/plain
 tests/webtbs/tw7173.pp svneol=native#text/plain
+tests/webtbs/tw7179.pp svneol=native#text/plain
 tests/webtbs/tw7195.pp svneol=native#text/plain
 tests/webtbs/tw7200.pp svneol=native#text/plain
 tests/webtbs/tw7227.pp svneol=native#text/plain
diff --git a/tests/webtbs/tw7179.pp b/tests/webtbs/tw7179.pp
new file mode 100644
index 0000000000..039361ac0f
--- /dev/null
+++ b/tests/webtbs/tw7179.pp
@@ -0,0 +1,27 @@
+{ %opt=-Seh }
+
+{$mode delphi}
+program TestMismatch;
+
+type
+  TTestClass = class(TObject)
+  public
+    procedure AProc(AValue : Single);
+  end;
+
+procedure TTestClass.AProc(AValue : Single);
+begin
+  WriteLn(AValue);
+end;
+
+var
+  AnObj : TTestClass;
+  ASingle : Single;
+  
+begin
+  AnObj := TTestClass.Create;
+  ASingle := 1;
+  AnObj.AProc(ASingle * 2); //Does not generate warning
+  AnObj.AProc(ASingle * 2.0); //Generates warning with -Cr or -vh
+end.
+