1{ %RESULT=200 }
2{ %OPT=-Oonoconstprop }
3{****************************************************************}
4{  CODE GENERATOR TEST PROGRAM                                   }
5{****************************************************************}
6{ NODE TESTED : secondmoddiv() - division by zero test           }
7{****************************************************************}
8{ PRE-REQUISITES: secondload()                                   }
9{                 secondassign()                                 }
10{                 secondtypeconv()                               }
11{****************************************************************}
12{ DEFINES:                                                       }
13{            FPC     = Target is FreePascal compiler             }
14{****************************************************************}
15{ REMARKS:                                                       }
16{                                                                }
17{                                                                }
18{                                                                }
19{****************************************************************}
20
21{$ifdef VER70}
22  {$define TP}
23{$endif}
24
25var
26  cardinalres : cardinal;
27  cardinalcnt : cardinal;
28  int64res : int64;
29  int64cnt : int64;
30begin
31
32  { RIGHT : LOC_REFERENCE }
33  { LEFT : LOC_REGISTER   }
34  int64res := 1;
35  int64cnt := 0;
36  int64res := int64res div int64cnt;
37end.
38