Test4.obn

   1 MODULE Test4;
   2
   3 VAR
   4   a : POINTER TO RECORD END;
   5   b : POINTER TO ARRAY OF INTEGER;
   6   c : PROCEDURE;
   7
   8 BEGIN
   9   a := NIL;
  10   b := NIL;
  11   c := NIL;
  12 END Test4.
  13
  14 Проверка присвоения NIL