t_id
178
t_adddate
2003/10/03
t_result
200
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
64059255 | 872907 | True | False | Successfully run |
Record count: 1
{ %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 }