t_id
76
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/17 23:27:00 24 | 2024/05/18 01:02:00 26 | |
| i386 | 22 | 44.0 | 2024/05/17 23:27:00 24 | 2024/05/18 01:02:00 26 | |
| sparc | 15 | 30.0 | 2024/05/17 23:33:00 38 | 2024/05/17 23:55:00 41 | |
| x86_64 | 12 | 24.0 | 2024/05/18 00:05:00 29 | 2024/05/18 00:34:00 30 | |
| aarch64 | 1 | 2.0 | 2024/05/18 00:11:00 33 | 2024/05/18 00:11:00 33 | |
| linux | 13 | 26.0 | 2024/05/17 23:33:00 28 | 2024/05/18 01:02:00 26 | |
| win32 | 3 | 6.0 | 2024/05/17 23:41:00 23 | 2024/05/18 00:21:00 24 | |
| solaris | 34 | 68.0 | 2024/05/17 23:27:00 24 | 2024/05/18 00:34:00 30 | |
| 3.3.1 | 20 | 40.0 | 2024/05/17 23:27:00 24 | 2024/05/18 00:21:00 24 | |
| 3.2.3 | 30 | 60.0 | 2024/05/17 23:33:00 38 | 2024/05/18 01:02:00 26 |
var x : byte;
y : longint;
procedure set_x;
begin
y:=345;
{$R-}
x:=y;
{$R+}
Writeln('x = ',x);
{$R-}
x:=y
{$R+}
end;
{ the bug comes from the fact that as there is no
semicolon after x:=y the parser must read up to end; statement
and thus change the range check mode before
the assign node is created !! }
begin
set_x;
Writeln('x = ',x);
end.