Test.obn

   1 MODULE Test;
   2
   3 VAR
   4   x : PROCEDURE(i : INTEGER);
   5
   6 PROCEDURE X(a : INTEGER);
   7 END X;
   8
   9 BEGIN
  10   x := X;
  11 END Test.