mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-15 21:19:26 +02:00
34 lines
1.3 KiB
ObjectPascal
34 lines
1.3 KiB
ObjectPascal
{ %RESULT=200 }
|
|
{ %OPT=-Oonoconstprop }
|
|
{****************************************************************}
|
|
{ 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.
|