blob: 3c234e2ef2a7f648102249adaa13a4ba53793c89 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
{ %OPT=-Sew -vw -Oodfa }
{ %FAIL }
{$mode objfpc}{$H+}
uses
Classes, SysUtils;
function Test(a: integer): integer;
var
i : integer;
begin
if a>0 then
i:=1
else
exit(i);
end;
begin
end.
|