t_id
955
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/18 01:10:00 32 | 2024/05/18 01:53:00 15 | |
i386 | 32 | 64.0 | 2024/05/18 01:10:00 32 | 2024/05/18 01:53:00 20 | |
x86_64 | 15 | 30.0 | 2024/05/18 01:28:00 26 | 2024/05/18 01:53:00 15 | |
aarch64 | 3 | 6.0 | 2024/05/18 01:29:00 34 | 2024/05/18 01:46:00 37 | |
linux | 49 | 98.0 | 2024/05/18 01:10:00 32 | 2024/05/18 01:53:00 15 | |
go32v2 | 1 | 2.0 | 2024/05/18 01:45:00 54 | 2024/05/18 01:45:00 54 | |
3.3.1 | 29 | 58.0 | 2024/05/18 01:26:00 31 | 2024/05/18 01:53:00 15 | |
3.2.3 | 21 | 42.0 | 2024/05/18 01:10:00 32 | 2024/05/18 01:52:00 26 |
{ Source provided for Free Pascal Bug Report 2432 } { Submitted by "Alfred Gaschler" on 2003-03-21 } { e-mail: Alfred.Gaschler@t-online.de } program test; uses classes; const has_errors : boolean = false; procedure a(p : array of tpoint); var n : integer; begin for n := low(p) to high(p) do begin write(p[n].x,' ',p[n].y,' '); if p[n].x<>n+1 then begin Writeln('Error'); has_errors:=true; end; //the result is 1 1 2 2 5 5 4 4 5 5 //should be 1 1 2 2 3 3 4 4 5 5 end; writeln; end; begin a([point(1,1),point(2,2),point(3,3), point(4,4),point(5,5)]); if has_errors then Halt(1); end.