t_id
441
t_adddate
2003/10/03
t_result
0
t_knownrunerror
1
Record count: 50
Total = 50
OK=0 Percentage= 0.00
Skipped=50 Percentage= 100.00
{ %KNOWNRUNERROR=1 Free Pascal does not compute args from left to right }
{ Old file: tbs0243.pp }
{ Arguments of functions are computed from right to left this }
program simpletest;
var i : longint;
function _next : longint;
begin
inc(i);
_next:=i;
end;
procedure test(a,b : longint);
begin
Writeln('first arg is ',a);
Writeln('second arg is ',b);
end;
procedure check(a,b : longint);
begin
if a>b then
begin
Writeln('FPC does not follow PASCAL rules for parameter passing');
Halt(1);
end;
end;
begin
{ this could give
first arg is 1
second arg is 2
but FPC parses the second arg before the first one ! }
test(_next,_next);
writeln('third arg is ',_next);
writeln('fourth arg is ',_next,' fifth arg is ',_next);
check(_next,_next);
end.