paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-15 03:39:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ another test for previous commit (mantis #7179)

Browse Source 
git-svn-id: trunk@5928 -
This commit is contained in:
Jonas Maebe 2007-01-12 18:37:27 +00:00
parent e815b923d5
commit 227ec1012d
2 changed files with 28 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -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

27
tests/webtbs/tw7179.pp Normal file
View File

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