Test suite results for test file tbs/tb0028.pp

Test run data :

Test file "tbs/tb0028.pp" information:

t_id 288
t_adddate 2003/10/03
t_result 0
t_knownrunerror 0

Detailed test run results:

Record count: 1

No log of 847486.

Source:

{ Old file: tbs0032.pp }
{  tests for a bugs with the stack                      OK 0.9.9 }

var
   p : procedure(w : word);

  procedure pp(w :word);
    begin
       Writeln(w);
    end;

begin
   p:=@pp;
   p(1234);
end.

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