Test suite results for test file tbs/tb0207.pp

Test run data :

Test file "tbs/tb0207.pp" information:

t_id 441
t_adddate 2003/10/03
t_result 0
t_knownrunerror 1

Detailed test run results:

Record count: 1

No log of 948179.

Source:

{ %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.

Link to SVN view of tbs/tb0207.pp source.