Test.obn

   1 MODULE Test;
   2
   3 TYPE
   4   Rider = RECORD i : INTEGER END;
   5
   6 PROCEDURE X;
   7   VAR
   8     r : Rider;
   9 BEGIN
  10   r.i := 666;
  11 END X;
  12
  13 BEGIN
  14   X;
  15 END Test.