fpcsrc/tests/tbs/tb0376.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

{%OPT=-Sew -vw}
{$mode objfpc}

function f: longint;
var
   a: longint absolute result;
begin
   a := 5;
end;

begin
  if f<>5 then
   begin
     writeln('error!');
     halt(1);
   end;
end.