t_id
958
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
Record count: 50
Total = 50
OK=50 Percentage= 100.00
Result type | Cat. | Count | Percentage | First date | Last Date |
Successfully run | 50 | 100.0 | 2024/05/21 01:10:00 32 | 2024/05/21 01:44:00 50 | |
i386 | 38 | 76.0 | 2024/05/21 01:10:00 32 | 2024/05/21 01:44:00 50 | |
x86_64 | 11 | 22.0 | 2024/05/21 01:21:00 14 | 2024/05/21 01:43:00 15 | |
aarch64 | 1 | 2.0 | 2024/05/21 01:29:00 35 | 2024/05/21 01:29:00 35 | |
linux | 50 | 100.0 | 2024/05/21 01:10:00 32 | 2024/05/21 01:44:00 50 | |
3.3.1 | 25 | 50.0 | 2024/05/21 01:16:00 31 | 2024/05/21 01:44:00 50 | |
3.2.3 | 25 | 50.0 | 2024/05/21 01:10:00 32 | 2024/05/21 01:42:00 33 |
{ 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 .