t_id
490
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
482188582 | 941185 | False | False | Failed to run |
Record count: 1
Unhandled trap: 0x21 pc: 00000000000101b8 npc: 00000000000101bc %g0-3: 0000000000000000 00000000000d4bc4 0000000000000000 0000000000000000 %g4-7: 0000000000000000 0000000000000000 0000000000000000 0000000000000000 %o0-3: 00000000000d3800 0000000040801050 000000004080105c 0000000000000000 %o4-7: 0000000000000000 0000000000000000 0000000040800fd0 0000000000010190 %l0-3: 0000000000000000 0000000000000000 0000000000000000 0000000000000000 %l4-7: 0000000000000000 0000000000000000 0000000000000000 0000000000000000 %i0-3: 00000000408010c4 00000000000d5e38 00000000408010cc 0000000000000000 %i4-7: 0000000000000000 0000000000000000 0000000040801068 00000000000100ec pstate: 00000092 ccr: 44 (icc: -Z-- xcc: -Z--) asi: 82 tl: 0 pil: 0 gl: 0 tbr: 0000000000000000 hpstate: 0000000000000000 htba: 0000000000000000 cansave: 6 canrestore: 0 otherwin: 0 wstate: 0 cleanwin: 7 cwp: 0 fsr: 0000000009004002 y: 0000000000000000 fprs: 0000000000000001
{ 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.