t_id
488
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
1022991681 | 1027424 | True | False | Successfully run |
Record count: 1
{ Old file: tbs0303.pp } { One more InternalError(10) out of register ! OK 0.99.13 (FK) } type intarray = array[1..1000,0..1] of longint; procedure test; var ar : intarray; i : longint; procedure local; begin i:=4; ar[i,0]:=56; ar[i-1,0]:=pred(ar[i,0]); end; begin local; end; begin test; end.