+ another test for previous commit (mantis #7179)

git-svn-id: trunk@5928 -

.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

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.
+