Test suite results for test file tbs/tb0314.pp

Test run data :

Test file "tbs/tb0314.pp" information:

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

Detailed test run results:

Record count: 1

No log of 497919.

Source:

{ this program shows a possible problem
  of name mangling in FPC  (PM) }
  procedure test;

    function a : longint;
      begin
         a:=1;
      end;

    begin
       writeln('a = ',a);
    end;

  procedure test(b : byte);

    function a : longint;
      begin
         a:=2;
      end;

    begin
       writeln('b = ',b);
       writeln('a = ',a);
    end;

  type a = word;

  function test_(b : a) : longint;
    begin
      test_:=b;
    end;

begin
   test(1);
   test;
   test(4);
end.

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