t_id
179
t_adddate
2003/10/03
t_result
200
t_knownrunerror
0
| tr_id | run | tr_ok | tr_skip | tr_result |
|---|---|---|---|---|
| 1022535249 | 1027349 | 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
}