t_id
958
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
451921676 | 936295 | True | False | Successfully run |
Record count: 1
{ Source provided for Free Pascal Bug Report 2442 } { Submitted by "Louis Jean-Richard" on 2003-03-28 } { e-mail: Ljean_richard@compuserve.com } PROGRAM Procall; TYPE anObject = OBJECT PROCEDURE A( w : word ); PROCEDURE A( c : cardinal ); n : byte; END ; PROCEDURE anObject.A( w : word ); PROCEDURE B; BEGIN WriteLn('B called (word)') END ; BEGIN n:=w DIV 2; B END ; PROCEDURE anObject.A( c : cardinal ); PROCEDURE B; BEGIN WriteLn('B called (cardinal)'); writeln('error!'); halt(1); END ; BEGIN n:=c DIV 4; B END ; VAR x : anObject; w : word; BEGIN w:=1; x.A(w) { the wrong local procedure is called !!! } END .