mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-12 20:29:23 +02:00
+ another test for previous commit (mantis #7179)
git-svn-id: trunk@5928 -
This commit is contained in:
parent
e815b923d5
commit
227ec1012d
1
.gitattributes
vendored
1
.gitattributes
vendored
@ -7910,6 +7910,7 @@ tests/webtbs/tw7105.pp svneol=native#text/plain
|
|||||||
tests/webtbs/tw7143.pp -text
|
tests/webtbs/tw7143.pp -text
|
||||||
tests/webtbs/tw7161.pp svneol=native#text/plain
|
tests/webtbs/tw7161.pp svneol=native#text/plain
|
||||||
tests/webtbs/tw7173.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/tw7195.pp svneol=native#text/plain
|
||||||
tests/webtbs/tw7200.pp svneol=native#text/plain
|
tests/webtbs/tw7200.pp svneol=native#text/plain
|
||||||
tests/webtbs/tw7227.pp svneol=native#text/plain
|
tests/webtbs/tw7227.pp svneol=native#text/plain
|
||||||
|
27
tests/webtbs/tw7179.pp
Normal file
27
tests/webtbs/tw7179.pp
Normal 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.
|
||||||
|
|
Loading…
Reference in New Issue
Block a user