blob: 4b0a1a00029e8d04c7b9e321821efa4201274bc5 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
|
{ %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.
|
