blob: 986eaf53cb54f7bb61c81c8e1661cf9b1f57be34 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
{ %opt=-Oodfa -Sew -vw }
{ %fail }
{$IFDEF FPC}
{$mode delphi}
{$ENDIF}
program FunctionResultAnalysisWrong;
uses
SysUtils;
var
I : longint;
function Test5: Integer;
begin
if i > 0 then
Result := 0;
end; {SHOULD generate "Warning: Function result does not seem to be set", does in delphi, not in FPC }
begin
i:=1;
end.
|