Test.obn

   1 MODULE Test;
   2
   3 IMPORT Out;
   4
   5 VAR
   6   f : BOOLEAN;
   7   r, e : POINTER TO RECORD END;
   8
   9 BEGIN
  10   f := r = e;
  11   IF f THEN
  12     Out.String('Yes'); Out.Ln;
  13   END;
  14 END Test.