Test.obn

   1 MODULE Test;
   2
   3 IMPORT SYSTEM, Out;
   4
   5 TYPE
   6   R = RECORD END;
   7
   8 VAR
   9   i : INTEGER;
  10   l : LONGINT;
  11
  12 BEGIN
  13   i := SYSTEM.VAL(INTEGER, l);
  14 END Test.