t_id
178
t_adddate
2003/10/03
t_result
200
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
523656198 | 947892 | False | False | Failed to run |
Record count: 1
Runtime error 200 at $000000010000164D $000000010000164D main, line 36 of test/cg/tdivz1.pp $0000000100001614 _FPC_MAINCRTSTARTUP, line 107 of sysinit.pp Runtime error 215 at $000000010000EBC8 $000000010000EBC8 $00000001000116A9 $0000000100011C05 $000000010000E43B $0000000076D5BFFD
{ %RESULT=200 } {****************************************************************} { CODE GENERATOR TEST PROGRAM } {****************************************************************} { NODE TESTED : secondmoddiv() - division by zero test } {****************************************************************} { PRE-REQUISITES: secondload() } { secondassign() } { secondtypeconv() } {****************************************************************} { DEFINES: } { FPC = Target is FreePascal compiler } {****************************************************************} { REMARKS: } { } { } { } {****************************************************************} {$ifdef VER70} {$define TP} {$endif} var cardinalres : cardinal; cardinalcnt : cardinal; int64res : int64; int64cnt : int64; begin { RIGHT : LOC_REFERENCE } { LEFT : LOC_REGISTER } int64res := 1; int64cnt := 0; int64res := int64res div int64cnt; end. { $Log: tdivz1.pp,v $ Revision 1.1 2002/09/21 13:28:06 carl + division by zero testing }