[Oberon] Native 24.08.2002: Compiler Bug

[Stefan Salewski]

Hello,

I think there is something wrong with the DIV statement.

==========

MODULE StSTest;

IMPORT Out;

PROCEDURE Do*;
VAR
  i,j,k:LONGINT;
BEGIN
  Out.String("Output is:");
  Out.Ln;
  i:=10;
  j:=3;
  k:=-(-i DIV j);
  Out.Int(k,8); Out.Ln;
  i:=-i;
  k:=-(i DIV j);
  Out.Int(k,8); Out.Ln;
END Do;

BEGIN
END StSTest.

StSTest.Do ~

Output is:
       3
       4
==========

Best regards

  Stefan Salewski