t_id
1330
t_adddate
2004/08/09
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/20 09:37:00 26 | 2024/05/20 19:35:00 26 | |
| i386 | 14 | 28.0 | 2024/05/20 09:37:00 26 | 2024/05/20 17:30:00 45 | |
| x86_64 | 13 | 26.0 | 2024/05/20 13:38:00 23 | 2024/05/20 19:35:00 26 | |
| mips | 3 | 6.0 | 2024/05/20 10:56:00 35 | 2024/05/20 14:28:00 35 | |
| aarch64 | 20 | 40.0 | 2024/05/20 09:48:00 39 | 2024/05/20 17:50:00 56 | |
| linux | 11 | 22.0 | 2024/05/20 09:48:00 39 | 2024/05/20 14:28:00 35 | |
| win32 | 1 | 2.0 | 2024/05/20 09:37:00 26 | 2024/05/20 09:37:00 26 | |
| go32v2 | 1 | 2.0 | 2024/05/20 10:22:00 73 | 2024/05/20 10:22:00 73 | |
| solaris | 12 | 24.0 | 2024/05/20 16:23:00 44 | 2024/05/20 17:30:00 45 | |
| darwin | 12 | 24.0 | 2024/05/20 16:20:00 32 | 2024/05/20 17:50:00 56 | |
| win64 | 13 | 26.0 | 2024/05/20 13:38:00 23 | 2024/05/20 19:35:00 26 | |
| 3.3.1 | 10 | 20.0 | 2024/05/20 10:22:00 73 | 2024/05/20 19:35:00 26 | |
| 3.2.2 | 12 | 24.0 | 2024/05/20 16:23:00 44 | 2024/05/20 17:30:00 45 | |
| 3.2.3 | 28 | 56.0 | 2024/05/20 09:37:00 26 | 2024/05/20 18:11:00 37 |
{ Source provided for Free Pascal Bug Report 3176 }
{ Submitted by "Marcel Martin" on 2004-06-21 }
{ e-mail: mm10@ellipsa.net }
program test;
{$MODE OBJFPC}
{$GOTO ON}
label DONE1;
var i : Longint;
begin
i := 0;
try
if i < 0 then goto DONE1;
i := 1;
//...
DONE1:
finally
i := 2;
end;
if i<>2 then
halt(1);
end.
//DONE1:
// begin end; <- inserting this line fixes the problem
// finally