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