t_id
490
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
525341711 | 948167 | False | False | Failed to run |
Record count: 1
Unhandled trap: 0x21 pc: 0000000000100248 npc: 000000000010024c %g0-3: 0000000000000000 0000000000000000 0000000000000000 0000000000000000 %g4-7: 0000000000000001 0000000000000000 0000000000000000 0000000000000000 %o0-3: 00000000002f7400 0000004000800dc0 0000004000800dd8 0000000000000000 %o4-7: 0000000000000000 0000000000000000 00000040008004d1 0000000000100220 %l0-3: 0000000000000000 0000000000000000 0000000000000000 0000000000000000 %l4-7: 0000000000000000 0000000000000000 0000000000000000 0000000000000000 %i0-3: 0000004000800ea8 00000000002f7460 0000004000800eb8 0000000000000000 %i4-7: 0000000000000000 0000000000000000 00000040008005f1 000000000010013c 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.