Test suite results for test file tbs/tb0391.pp

Test run data :

Test file "tbs/tb0391.pp" information:

t_id 608
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 497919.

Source:

{ %version=1.1 }

{$ifdef fpc}{$mode objfpc}{$endif}
uses ub0391;

type
  tc1 = class
    procedure p1(l:longint);
    procedure p2;
  end;

procedure tc1.p1(l:longint);
begin
  writeln('longint: ',l);
end;


procedure tc1.p2;
var
  c2 : tc2;
begin
  c2:=tc2.create;
  { the next code should take tc1.p1(longint) as the tc2.p1 can not
    be seen from here! }
  with c2 do
   p1(100);
  c2.free;
end;


var
  c1 : tc1;
begin
  c1:=tc1.create;
  c1.p2;
  c1.free;
end.

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