Test.obn

   1 MODULE Test;
   2
   3 VAR
   4   i : INTEGER;
   5   f : REAL;
   6   d : LONGREAL;
   7
   8 BEGIN
   9   i := 5 DIV 3;
  10   f := 5 / 3;
  11   d := 5 / 3.0;
  12   d := 5 / 3.0D0;
  13 END Test.