t_id
490
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
1022396583 | 1027325 | False | False | Failed to run |
Record count: 1
+Inf Error in except handling
{ Old file: tbs0305.pp } { Finally is not handled correctly after inputting 0 } {$mode objfpc} uses sysutils; var i,j,k:real; const except_called : boolean = false; begin i:=100; j:=0; try k:=i/j; writeln(k:5:3); except k:=0; writeln('Illegal Input'); except_called:=true; end; if not except_called then begin Writeln('Error in except handling'); Halt(1); end; end.