t_id
383
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
1022234930 | 1027299 | True | False | Successfully run |
Record count: 1
{ Old file: tbs0165.pp } { missing range check code for enumerated types. OK 0.99.9 (PFV) } {$R+} Program bug0165; uses erroru; { No range check when -Cr given} Type Directions = (North, East,South,West); Var Go : Directions; begin Require_Error(201); Go:=North; Go:=Pred(Go); { must give run-time error } end.