t_id
179
t_adddate
2003/10/03
t_result
200
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
456196977 | 936984 | 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 longres : longint; longcnt : longint; begin longres := 1; longcnt := 0; longres := longres div longcnt; end. { $Log: tdivz2.pp,v $ Revision 1.1 2002/09/21 13:28:06 carl + division by zero testing }