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