+ division by zero testing

tests/test/cg/tdivz1.pp

@@ -0,0 +1,42 @@
+{ %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$
+  Revision 1.1  2002-09-21 13:28:06  carl
+   + division by zero testing
+
+}

tests/test/cg/tdivz2.pp

@@ -0,0 +1,38 @@
+{ %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$
+  Revision 1.1  2002-09-21 13:28:06  carl
+   + division by zero testing
+
+}