Test suite results for test file webtbs/tw1935.pp

Test run data :

Test file "webtbs/tw1935.pp" information:

t_id 881
t_version 1.1
t_adddate 2003/10/03
t_result 0
t_knownrunerror 0

Detailed test run results:

Record count: 1

No log of 941183.

Source:

{ %version=1.1 }

{$ifdef fpc}
  {$mode objfpc}
{$endif}

type
        TCls = class
                public
                        procedure build (a, b, c: LongInt);overload;
                        procedure build (a, b, c, d: LongInt);overload;
                end;

const
    err : boolean=true;

procedure TCls.build (a, b, c: LongInt);

        procedure subproc;
        begin
                writeln ('a, b, c');
        err:=false;
        end;

begin
        subproc;
end;

procedure TCls.build (a, b, c, d: LongInt);

        procedure subproc;
        begin
                writeln ('a, b, c, d');
        end;

begin
end;

var
        C: TCls;

begin
        C := TCls.create;
        C.build (1, 2, 3);
    if err then
     halt(1);
end.

Link to SVN view of webtbs/tw1935.pp source.