Test12.obn

   1 MODULE Test12;
   2
   3 IMPORT SYSTEM;
   4
   5 CONST
   6   con  = -32;
   7   comp = 32;
   8
   9 VAR
  10   i, j : INTEGER;
  11
  12 BEGIN
  13   i := con;
  14   j := comp;
  15
  16   ASSERT(ASH(i, -5) = ASH(con, -5));
  17   ASSERT(ASH(i,  5) = ASH(con,  5));
  18   ASSERT(ASH(j, -5) = ASH(comp, -5));
  19   ASSERT(ASH(j,  5) = ASH(comp,  5));
  20
  21 (*
  22   (* Константы вычисляются с максимальной точностью, поэтому всегда провал  *)
  23   ASSERT(SYSTEM.LSH(i, -5) = SYSTEM.LSH(con, -5));
  24 *)
  25
  26   ASSERT(SYSTEM.LSH(i,  5) = SYSTEM.LSH(con,  5));
  27   ASSERT(SYSTEM.LSH(j, -5) = SYSTEM.LSH(comp, -5));
  28   ASSERT(SYSTEM.LSH(j,  5) = SYSTEM.LSH(comp,  5));
  29 END Test12.
  30
  31 Проверка сдвигов.